entfernen Element aus einem Satz nur, wenn Element in es

Question

Eine Liste von Spielern als ein Satz definiert:

(def players (atom #{})) 

Funktion, die Spieler entfernt sollte auf verschiedene HTTP-Codes zurückgeben basierend, ob Element in der Menge war oder nicht :

(defn remove-player [player-name] 
    (if (contains? @players player-name) 
    (do (swap! players disj player-name) 
     (status (response "") 200)) 
    (status (response "") 404))) 

Das Problem mit diesem Code ist, dass es eine Anfrage mehr 200 auf gleichzeitige Anforderungen zurückkehren könnte, auch wenn sie eigentlich nur das Element entfernt.

Ich denke, ich muss sowohl contains? als auch disj atomar ausführen. Muss ich explizit sperren oder gibt es einen besseren Weg?

Answer 1

Die swap! selbst ist atomare Operation, so dass Sie innerhalb der Berechnungsfunktion des Swaps sicher sein können, dass der erste Parameter (der aktuelle Wert des Atoms) konsistent ist. Persönlich würde ich eine Hilfsfunktion machen das wie folgt aus:

(defn remove-existent [value set-a] 
    (let [existed (atom false)] 
    (swap! set-a 
      #(if (contains? % value) 
       (do (reset! existed true) 
        (disj % value)) 
       (do (reset! existed false) 
        %)) 
    @existed)) 

wie Sie sehen können, Lambda-Ausdruck enthält sowohl existency Überprüfung und Entfernung.

user> (def players (atom #{:user1 :user2})) 
#'user/players 

user> (remove-existent :user100 players) 
false 

user> (remove-existent :user1 players) 
true 

user> @players 
#{:user2} 

Update

Inspiriert von @ clojuremostly ist ausgezeichnet Metadaten Ansatz, können Sie es viel besser machen:

(defn remove-existent [value set-a] 
    (-> (swap! set-a #(with-meta (disj % value) 
         {:existed (contains? % value)})) 
     meta 
     :existed)) 

Answer 2

Sie können nur etwas mehr Logik zum Swapping-Funktion hinzu:

(for [el-rem [:valid-el :not-there]] 
    (let [a (atom #{:valid-el :another-one}) 
     disj-res 
     (swap! a 
       (fn [a] 
       (with-meta (disj a el-rem) 
          {:before-count (count a)})))] 
    [disj-res 
    "removed:" 
    el-rem 
    (not (== (:before-count (meta disj-res)) 
       (count disj-res)))])) 

Sie vergleichen dann th e Zählung des Rückgabewerts und die Anzahl in den Metadaten. Wenn es sich unterscheidet, hat disj ein Element entfernt. Wenn nicht, war das Element nicht vorhanden.