使用原子映射的Java ConcurrentHashMap的Clojure等价物

Question

受this关于事件采购的博客文章的启发，我想知道是否有可能实现与Java ConcurrentHashMap等效的Clojure结构。基础this Rich发布到Clojure maling列表，我已经提出了以下部分实现，但我不确定它是否是并发安全的？如果不是，那么有人能建议一种更好的方法来构建这样的结构吗？

(defn ^M h []
   (let [m (atom {})]
     (reify M
       (put [_ k v] (swap! m assoc k v))
       (get [_ k] (get @m k))
       (putIfAbsent [_ k v]
         (swap! m #(if (get % k)
                     %
                     (assoc % k v))))
       (replace [_ k old-v new-v]
          (swap! m #(if (= old-v (get % k))
                     (assoc % k new-v)
                     %))))))

(definterface M
   (put [k v])
   (get [k])
   (putIfAbsent [k v])
   (replace [k old-v new-v]))

参考文献：

http://www.jayway.com/2013/04/02/event-sourcing-in-clojure/

https://groups.google.com/d/msg/clojure/dK6x_QpCpvo/OitIryoFSAgJ

Answer 1

当您检查交换内部密钥的存在时，它是线程安全的！这意味着如果两个线程同时尝试放置，其中一个将重试，再次检查条件并退出而不修改映射。