Clojure 反向展平列表。例如。 '(1 2 3 4 5 6) to ' ((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])