Clojure仕様のvararg関数

Question

関数を使用して入力としてマップし、関数を使用して競合を解決するマージ関数の仕様を記述しようとしています。しかし、関数のために書いた仕様は失敗します。私はそのような関数の仕様書を書く方法を理解しようとしています。

以下はコードスニペットです。

(require '[clojure.spec.test :as stest]) 
(require '[clojure.spec :as spec]) 

(defn deep-merge-with [func & maps] 
    (let [par-func (partial deep-merge-with func)] 
    (if (every? map? maps) 
     (apply merge-with par-func maps) 
     (apply func maps)))) 

(spec/fdef deep-merge-with 
      :args (spec/cat :func (spec/fspec :args (spec/cat :maps (spec/* map?)) 
              :ret map?) 
          :maps (spec/cat :maps (spec/* map?))) 
      :ret map?) 

(stest/instrument `deep-merge-with) 

(deep-merge-with (fn [f s] s) {:a 1} {:a 2}) 

私は取得していますスペックエラーがある：あなたの[:args :func]スペックで

clojure.lang.ExceptionInfo: Call to #'boot.user/deep-merge-with did not conform to spec: 
    In: [0] val:() fails at: [:args :func] predicate: (apply fn), Wrong number of args (0) passed to: user/eval22001/fn--22002 
           :clojure.spec/args (#function[boot.user/eval22001/fn--22002] {:a 1} {:a 2}) 

Answer 1

：

(spec/fspec :args (spec/cat :maps (spec/* map?)) :ret map?) 

あなたは関数は引数として受け入れなければならないということ、任意の数のを言っていますマップを作成し、マップを返します。しかし、あなたはdeep-merge-withに渡す機能は、その仕様に準拠していません。

(fn [f s] s) 

この関数は正確にの引数ではなく、マップの任意の数をとります。