4clojure＃69合并功能

Question

这是我的解决方案。

(defn mf [f & ms] (
    (let [mm (apply merge ms) 
     ks (keys mm) 
     rf (fn [koef fc maps] (reduce fc (filter #(not (= % nil)) (map koef maps))))] 
    (into {} (map #(vector % (rf % f ms)) ks))))) 

当我尝试使用它时，遇到错误。

(mf + {:a 1 :b 2 :d 7} {:a 2 :b 3 :c 6}) 

ArityException数目错误参数的个数（0）传递给：PersistentArrayMap clojure.lang.AFn.throwArity（AFn.java:429）

但是，当通过线路在REPL线I输入定义，一切进展顺利。

>(def f +) 
>(def ms '({:a 1 :b 2 :d 7} {:a 2 :b 3 :c 6})) 
>(def mm (apply merge ms)) 
... 
>(into {} (map #(vector % (rf % f ms)) ks)) 
{:c 6, :a 3, :b 5, :d 7} 
> 

我的解决方案有什么问题？

Answer 1

简单的错字。你有一对额外的括号。它应该是：

(defn mf [f & ms] 
    (let [mm (apply merge ms) 
     ks (keys mm) 
     rf (fn [koef fc maps] (reduce fc (filter #(not (= % nil)) (map koef maps))))] 
    (into {} (map #(vector % (rf % f ms)) ks)))) 

(mf + {:a 1, :b 2, :d 7} {:a 2, :b 3, :c 6}) 
    => {:a 3, :b 5, :d 7, :c 6}