Problema de evaluación diferida

Question

Tengo un código como este. Puedo ejecutar esto en repl pero no puedo desde la línea de comando. Supongo que tengo un problema de evaluación perezosa.

; items.clj 

(def items (ref [])) 

(defn init-items [] 
    (map 
    #(dosync 
     (alter items conj %)) 
    ["foo" "bar" "baz" ])) 

(init-items) 
(println (first @items)) 

$ java -jar clojure.jar items.clj 
$ nil 

Saludos.

Answer 1

¡Lo tengo!

solution

Clojure no está motivado para ejecutar la función map en init-items porque no hay resultado devuelto. Envolví eso en un doall para forzar la ejecución, y listo.

Answer 2

Algunas alternativas:

Si lo que desea es añadir un montón de elementos a una colección que tuvo lugar en un Referencia, a partir de una transacción por elemento y conj ing ellos por separado es un poco desperdicio. En su lugar, se podría hacer

(defn init-items [] 
    (dosync (alter items into ["foo" "bar" "baz"]))) 

Si usted tiene alguna razón para hacerlo de una manera un elemento-por-paso, creo que el enfoque más idiomática y conveniente sería actualmente de usar doseq:

(defn init-items [] 
    (doseq [item ["foo" "bar" "baz"]] 
    (dosync (alter items conj item)))) 

(O puede mover toda la envoltura doseq en un dosync y no utilizar dosync en el cuerpo del doseq 's.)