这个函数如何将交错过程反转为x个子序列

Question

前几天我在4clojure上完成了exercise 43并检查了其他一些解决方案。一个人特别困惑我。

挑战要求你编写一个满足所有这些要求的函数：

(= (__ [1 2 3 4 5 6] 2) '((1 3 5) (2 4 6)))
(= (__ (range 9) 3) '((0 3 6) (1 4 7) (2 5 8)))
(= (__ (range 10) 5) '((0 5) (1 6) (2 7) (3 8) (4 9)))

我的解决方案是：

(fn [l n] 
    (map #(map second %) (vals (group-by #(mod (first %) n) 
    (map vector (iterate inc 0) l)))))

用户himself有这个解决方案：     #(apply map list (partition %2 %1)) 我无法弄清楚它是如何运作的。

让我们解决第一个问题：

(= (__ [1 2 3 4 5 6] 2) '((1 3 5) (2 4 6)))

好(#(partition %2 %1) [1 2 3 4 5 6] 2)现在会给我们((1 2) (3 4) (5 6)) apply map list如何生成(1 3 5) (2 4 6)

Answer 1

apply使用((1 2) (3 4) (5 6))作为附加参数的可变长度列表。然后迭代地图将list函数应用于所有这三个附加列表。

结果它扩展如下：

   (apply map list '((1 2) (3 4) (5 6)))
=> (map list '(1 2) '(3 4) '(5 6))
=> (list 1 3 5) and (list 2 4 6)