Clojure : 원자와 심판의 관용적 사용?

Question

지도를 참조하고지도에서 키 값 쌍을 증가시키는 약간의 Clojure 코드를 작성 중입니다. 나는 ref를 올바르게 사용하고 있다고 생각하지만, 원자에 대해서는 확실하지 않습니다. 스왑을 사용해야합니까? 더 관용적 일까? 나는 STM과 Clojure에 익숙하지 않다.이게 thread-safe/sane으로 보이는가? 내가 뭘 놓치고 있니? 그것은 매우 관용적 Clojure의 아니다

(defn increment-key [ref key] 
    (dosync 
     (if (= (get @ref key) nil) 
      (alter ref assoc key (atom 1)) 
      (alter ref assoc key (atom (inc @(get @ref key))))))) 

(defn -main [& args] 
    (def my-map (ref {})) 
    (increment-key my-map "yellow") 
    (println my-map) 
    (increment-key my-map "yellow") 
    (println my-map)) 

인쇄

$ lein run 
#<Ref@494eaec9: {yellow #<Atom@191410e5: 1>}> 
#<Ref@494eaec9: {yellow #<Atom@7461373f: 2>}> 

Answer 1

이 작업을 수행합니다 : 영구 데이터 구조 내에서 변경 가능한 객체를 포함하면 일반적으로 불변의 데이터 구조의 요점을 격파한다.

나는 내부 원자를 완전히 피할 것이고, 키와 연관된 번호를 가지고있을 것이다. 그런 다음 my-map에 포함 된 전체 데이터 구조는 변경되지 않습니다.

스레드 안전성은 실제로 어떻게 사용할 것인지에 달려 있습니다. A ref은 여기에없는 여러 개의 참조 전체에서 트랜잭션을 조정할 필요가있을 때만 필요하기 때문에이 경우에는 과도한 것처럼 보입니다. 아마도 atom으로 당신이하려는 일에 충분할 것입니다. 여기

는 대신 그것을 해결할 수있는 방법은 다음과 같습니다

(defn increment-key [ref key] 
    (swap! ref update-in [key] (fn [n] (if n (inc n) 1)))) 

(def my-map (atom {})) 
(increment-key my-map "yellow") 
(println my-map) ;; => {"yellow" 1} 
(increment-key my-map "yellow") 
(println my-map) ;; => {"yellow" 2} 

편집 : 더 나은 당신의 기능에서 가변성을 유지하고 순수한 함수로 증가 - 키를 정의하는 것입니다.

(defn increment-key [m key] 
    (assoc m key (if-let [n (m key)] (inc n) 1))) 

(def my-map (atom {})) 
(swap! my-map increment-key "yellow") 
(println my-map) ;; => {"yellow" 1} 
(swap! my-map increment-key "yellow") 
(println my-map) ;; => {"yellow" 2}