clojure - Clojure 中的线程安全流行？

Question

我在 http://www.learningclojure.com/2010/11/yet-another-way-to-write-factorial.html 上找到了这个代码，但我不明白 pop-task 是否/如何应该是线程安全的。不允许返回两次相同的头吗？

(def to-do-list (atom '()))  
(defn add-task![t] (swap! to-do-list #(cons t %)))  
(defn pop-task![] (let [h (first @to-do-list)] (swap! to-do-list rest) h))

如果是这样，是否可以继续使用atom并编写peek和swap!原子地，还是这是 ref 机制的工作？

Answer 1

或者你下降到一个较低的水平。

(def to-do-list (atom nil))

(defn add-task!
   [t]
   (swap! to-do-list conj t))

(defn pop-task!
   []
   (let [[h & r :as l] @to-do-list]
     (if (compare-and-set! to-do-list l r)
       h
       (recur))))