clojure - 为什么 clojure 交换!不能与 map 一起正常工作？

Question

(defn get-vector []
    (let [rs (atom [])]
        (map (fn [x] (swap! rs conj x)) [1 2 3 4]) 
      @rs))

(get-vector)

我认为这个函数应该返回[1 2 3 4]；然而，它只返回一个空向量 []。

Answer 1

Clojure map是懒惰的，因为你不要求它的结果，它不会评估它的内容，也不会用 swap! 执行你的函数。 .

要使其正常工作，您应该使用 dorun 强制它实现其内容:

(defn get-vector []
  (let [rs (atom [])]
    (dorun (map (fn [x] (swap! rs conj x)) [1 2 3 4]))
    @rs))

(get-vector)
;; => [1 2 3 4]

我不确定您要解决什么问题 - 如果这只是测试 swap! 的示例代码比该代码看起来还好。否则你可能想使用其他解决方案，如 reduce并避免可变引用。

正如@Shlomi 所建议的那样，使用 doseq 会更加地道。副作用:

(let [rs (atom [])]
  (doseq [x [1 2 3 4]]
    (swap! rs conj x))
  @rs)