Clojure: chiamare una funzione per ogni elemento in un vettore con esso indice

Question

dire che ho un vettore:

(def data ["Hello" "World" "Test" "This"]) 

E voglio popolare una tabella da qualche parte che ha un api:

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

allora qual è il modo migliore per ottenere le seguenti chiamate ad accadere:

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

ho trovato che il seguente funzionerà:

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

Ma c'è un modo più veloce che non richiede un nuovo idv di infrastruttura temporanea?

Answer 1

Il modo in cui lo si fa è idiomatico (e identico allo clojure.contrib.seq-utils/indexed in effetti). Se davvero si vuole evitare che la struttura dei dati in più, si può fare questo:

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

userei la versione a meno che non ci fosse un buon motivo per non però.

Answer 2

È possibile ottenere lo stesso effetto in modo molto clojure-idiomatico semplicemente mappando gli indici insieme ai dati.

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

Si consiglia di avvolgere questo in un (doall o (doseq per effettuare le chiamate accadere ora. Va bene mappare un seq infinito insieme a quello finito perché la mappa si fermerà quando il seq più breve si esaurirà.

Answer 3

ho fatto un breve confronto tra le prestazioni delle opzioni sofar:

; 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) 

Risultati sul mio portatile 1 nucleo:

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

conclusione preliminare:

Utilizzare il loop/ricorrono soluzione.

Answer 4

il modo più bello sarebbe quello di utilizzare clojure.contrib.seq-utils/indexed, che sarà simile a questa (utilizzando destrutturazione):

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

Answer 5

un po 'tardi nel gioco, ma per le persone che accedono questa pagina: ora c'è (dal clojure 1.2) una funzione map-indexed disponibile in clojure.core.

Un problema (a meno che non mi sbagli): non esiste un equivalente "pmap", il che significa che i calcoli indicizzati sulla mappa non possono essere facilmente parallelizzati. In tal caso, mi riferisco alle soluzioni offerte sopra.