(map vector [1 2 3] [4 5])
会给:
([1 4] [2 5])
这里有3被丢弃。
如果我想自动将那些太短的seqs填充到最大长度怎么办?
e.g。 如果我想得到什么是惯用的方式
([1 4] [2 5] [3 nil])
答案 0 :(得分:14)
(defn map-all [f & colls]
(lazy-seq
(when (some seq colls)
(cons (apply f (map first colls))
(apply map-all f (map rest colls))))))
(map-all vector [1 2 3] [4 5])
;=> ([1 4] [2 5] [3 nil])