原子をスレッドセーフな方法で初期化するには？

Question

はのは、私が原子を持っているとしましょう：

(def my-atom (atom nil)) 

次のようにその後、私はそれを初期化：

(defn init-atom [init-value] 
    (when (nil? @my-atom) 
    (reset! my-atom init-value))) 

init-atomが異なるスレッドから同時に呼び出された場合、I競合状態が発生することがあります。私は安全かつ正確に原子を初期化する方法を探しています。そこに何か？

UPD：次のように

は実際に私がそれを初期化しています：

(defn init-atom [produce-init-fn] 
    (when (nil? @my-atom) 
    (reset! my-atom (produce-init-fn)]))) 

produce-init-fnは副作用が含まれていてもよいです。

(let [o (Object.)] 
    (defn init-atom [init-value] 
    (locking o 
     (when (nil? @my-atom) 
     (reset! my-atom init-value))))) 

Answer 1

以下は、原子が一度だけ初期化されていることを確認します：

(defn init-atom [init-value] 
    (swap! my-atom #(when (nil? %) init-value))) 

アトムとswap!セマンティクスがswap!に渡された関数があることを保証

Answer 2

これはトリックを行う必要があります原子的に実行される。

init値を生成する関数を渡すと、スワップとしては機能しません！競合するトランザクションが発生した場合に複数回機能を呼び出すことがあります。そして、あなたは他の回答のように、ロックのいくつかの種類を使用する必要があります。my-atomと他の同時トランザクションがある場合

(let [o (Object.)] 
    (defn init-atom [init-value-fn] 
    (locking o 
     (swap! my-atom #(when (nil? %) (init-value-fn)))))) 

init-value-fnはまだ複数回呼び出されることがあります。

あなたは遅延初期化とinit-value-fnをサポートする必要がある場合はあなただけdelayにそれをラップすることができますすべてのスレッドのための先行投資と同じ知られているし、それは一度だけ呼び出され、その結果がキャッシュされ、再利用されます。

(def my-init-value (delay init-value-fn)) 

(defn init-atom [] 
    (swap! my-atom #(when (nil? %) @my-init-value)))