为什么此功能无法按预期工作？

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

的问题是在可变参数是如何使用的。 my-juxt具有参数[& 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)))))