为什么这个功能不能按预期工作？

Question

为什么这个功能不能按预期工作？

(defn my-juxt
  [& fns]
  (if (= 1 (count fns))
    (fn [& a] (list (apply (first fns) a)))
    (fn [& a]
      (cons (apply (first fns) a) ((my-juxt (rest fns)) a)))))

注意:这有效 -

(defn new-juxt
  [& fns]
  (fn [& a]
    (map #(apply % a) fns)))

Answer 1

问题在于如何使用varargs.在最后一个字符串中给出了my-juxtparams .它返回的函数也是如此:它在提供时期望.[& fns][fns][& a][a]

下面的代码将起作用(请注意另外两个apply)

(defn my-juxt
  [& fns]
  (if (= 1 (count fns))
    (fn [& a] (list (apply (first fns) a)))
    (fn [& a]
      (cons (apply (first fns) a) 
            (apply (apply my-juxt (rest fns)) a)))))