Clojure：ベクトルで各要素の関数を呼び出す

Question

そして、私はどこかにapiを持つテーブルを作成したい：

(defn setCell 
    [row col value] 
    (some code here)) 

次に、以下の呼び出しを行う最良の方法は何ですか：

(setCell 0 0 "Hello") 
(setCell 0 1 "World") 
(setCell 0 2 "Test") 
(setCell 0 3 "This") 

次のようなことがわかりました：

(let [idv (map vector (iterate inc 0) data)] 
    (doseq [[index value] idv] (setCell 0 index value))) 

しかし、新しい一時データ構造idvを必要としない高速な方法がありますか？

Answer 1

あなたのやり方は、慣用的です（実際はclojure.contrib.seq-utils/indexedと同じです）。あなたが本当に余分なデータ構造を避けたい場合は、この操作を行うことができます。

(loop [data data, index 0] 
    (when (seq data) 
    (setCell 0 index (first data)) 
    (recur (rest data) (inc index)))) 

正当な理由がないにかかわらずあった場合を除き、私はあなたのバージョンを使用すると思います。

Answer 2

インデックスとデータをマッピングするだけで、非常に密接に似たような効果を得ることができます。

(map #(setCell 0 %1 %2) (iterate inc 0) data) 

あなたは通話が今実現するために(doallまたは(doseqでこれをラップすることをお勧めします。最短のseqがなくなったときに地図が停止するので、有限のseqと有限のseqをマップするのはいいです。

Answer 3

私はSOFARオプションのパフォーマンスの短い比較をした：私の1つのコアラップトップ上

; just some function that sums stuff 
(defn testThis 
    [i value] 
(def total (+ total i value))) 

; our test dataset. Make it non-lazy with doall  
(def testD (doall (range 100000))) 

; time using Arthur's suggestion 
(def total 0.0) 
(time (doall (map #(testThis %1 %2) (iterate inc 0) testD))) 
(println "Total: " total) 

; time using Brian's recursive version 
(def total 0.0) 
(time (loop [d testD i 0] 
    (when (seq d) 
    (testThis i (first d)) 
    (recur (rest d) (inc i))))) 
(println "Total: " total) 

; with the idiomatic indexed version 
(def total 0.0) 
(time (let [idv (map vector (iterate inc 0) testD)] 
    (doseq [[i value] idv] (testThis i value)))) 
(println "Total: " total) 

結果：

"Elapsed time: 598.224635 msecs" 
    Total: 9.9999E9 
    "Elapsed time: 241.573161 msecs" 
    Total: 9.9999E9 
    "Elapsed time: 959.050662 msecs" 
    Total: 9.9999E9 

予備的結論：

をループ/ RECURを使用します溶液。

Answer 4

素敵な方法は、（非構造を使用して）次のようになりますこれ、clojure.contrib.seq-utils/indexedを使用することです：

(doseq [[idx val] (indexed ["Hello" "World" "Test" "This"])] 
    (setCell 0 idx val)) 

Answer 5

ビットゲーム後半で

が、このページにアクセスする人のために：Clojureの1.2以降（今そこにあります）map-indexed関数はclojure.coreで利用可能です。

1つの問題（私が間違っている場合を除きます）：マップインデックスの計算を簡単に並列化できないという意味の「pmap」はありません。その場合、上記のソリューションを参照したいと思います。