Clojure反向平坦列表。例如“(1 2 3 4 5 6)至”(1 2) (3 4) (5 6)

Question

是否有一个核心功能或一些惯用的方式来做一个“反向扁平”的集合？我想要以下几点：

(by-two '(1 2 3 4 5 6)) ; evals to '( (1 2) (3 4) (5 6) )

当然，在上述情况下，表单需要偶数的元素，或者函数应该做一些明智的事情，如果有奇数集合的话。当然，广义by-n函数会更好。我不清楚尝试深入推广这一概念是否有任何好处，也不清楚这样做的最佳形式是什么：

(by [2 2] '(1 2 3 4 5 6 7 8)) ; evals to '( ( (1 2) (3 4) ) ( (5 6) (7 8) ) )
(by [3 2 1 1 1] '(1 2 3 4 5 6)) ; evals to '(((((1 2 3) (4 5 6)))))

Answer 1

您可以使用reduce和partition：

(reduce #(partition %2 %1) '(1 2 3 4 5 6 7 8) [2 2])

Answer 2

有partition

(partition 2 [1 2 3 4 5])
> ((1 2) (3 4))

如果你想包括小尾巴，就有partition-all

 (partition-all 2 [1 2 3 4 5])
 > ((1 2) (3 4) (5))

Answer 3

我不知道这样的标准功能。但是隔断是有帮助的：

(defn by [sizes coll]
  (if sizes
    (by (next sizes) (partition (first sizes) coll))
    coll))