如何将Clojure惰性序列转换为Map并使用print-table制表？

我来帮你搞定这个表格打印的问题～首先咱们拆解下你遇到的两个核心点：惰性序列的求值，还有嵌套结构适配print-table的格式要求。

第一步：调整序列结构适配print-table #

你的序列当前是多层嵌套的结构：(((red dog) (purple cat)) ((green mouse) (yellow bird)))，而print-table需要的是每行对应一个向量/列表的序列，也就是类似((red dog) (purple cat) (green mouse) (yellow bird))这样的结构。

你可以用mapcat identity来展开外层的嵌套：

(def nested-data '(((red dog) (purple cat)) ((green mouse) (yellow bird))))
(def rows (mapcat identity nested-data))
; 现在rows就是 ((red dog) (purple cat) (green mouse) (yellow bird))

第二步：处理惰性序列的求值问题 #

因为你的序列是惰性的，直接传给print-table其实没问题——它在打印时会自动遍历整个序列完成求值。但如果你需要先把惰性序列转换成非惰性的（比如要重复使用），可以用doall或者vec：

; 假设lazy-data是你从CSV读取并修剪后的惰性序列
(def non-lazy-rows (doall (mapcat identity lazy-data)))

第三步：用print-table打印表格 #

现在就可以直接用print-table了，默认会给列命名为:0、:1...，你也可以自定义表头适配你的数据：

(require '[clojure.pprint :as pp])

; 自定义表头的情况（比如颜色和动物）
(pp/print-table :headers ["Color" "Animal"] rows)

; 如果未来列数增加，只要调整表头就行，比如3列的情况：
; (pp/print-table :headers ["Col1" "Col2" "Col3"] rows-with-3-cols)

打印出来的效果会是整齐的表格：

| Color  | Animal |
|--------|--------|
| red    | dog    |
| purple | cat    |
| green  | mouse  |
| yellow | bird   |

额外补充：如果CSV自带表头 #

如果你的CSV第一行是表头，那可以把表头和行数据分开处理，比如：

(def all-data (mapcat identity lazy-data))
(def headers (first all-data))
(def rows (rest all-data))

(pp/print-table :headers headers rows)

这样不管未来列数怎么变，都能自动适配表头啦～

内容的提问来源于stack exchange，提问作者Jeroen