1 
(defn make-heavy [f] 
  (fn [& args]
    (Thread/sleep 1000)
    (apply f args)))

(defn doRunThroughSplit [vector NoOfLines]
;the function is too long

(def zzz [34877 30287 18160 22981])

それらは行数の4つのファイルです

(time (def abc (map (make-heavy doRunThroughSplit [x1 n1 m1 b1] zzz))))

理由がわからないこの例外が発生し続けているようです

ArityException Wrong number of args (3) passed to: final$make-heavy clojure.lang.AFn.throwArity (AFn.java:437)

make Heavy 関数は、実際には実用的な clojure からコピーされました。

4

1 に答える 1

2

これがあなたが望むものであると考えられます：

(defn make-heavy [f] (fn [& args] (Thread/sleep 1000) (apply f args)))

(defn doRunThroughSplit [NoOfLines] (println "noOfLines=" NoOfLines))

(def zzz [34877 30287 18160 22981])

(time (def abc (map (make-heavy doRunThroughSplit) zzz)))
于 2013-06-30T04:09:47.270 に答える