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}