懒惰的评价问题

Question

我有这样的代码.我可以在repl中运行它但不能从命令行运行.我想我是一个懒惰的评估问题.

; 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

问候.

Answer 1

知道了！

解决方案

Clojure 没有动力运行该map函数，init-items因为没有返回结果。我把它包装成doall强制执行，然后就变了。