永続マップに2つのキー値を入れ替えるClojure関数はありますか？

Question

永続マップ内の2つのキーの値を入れ替えるClojure関数はありますか？私が知っている最高ののthisある

(defn swap-keys [map k1 k2] 
    (let [f (get map k1) s (get map k2)] 
    (assoc map k1 s k2 f))) 

(swap-keys {:a 1 :b 2 :c 3 :d 4} :a :c) 
;; => {:a 3, :b 2, :c 1, :d 4} 

Answer 1

： は、私はこのような何かを意味

(clojure.set/rename-keys {:a 1 :b 2 :c 3 :d 4} 
         {:a :c, :c :a}) 
;; {:c 1, :b 2, :a 3, :d 4} 

したい場合は、単に双方向スワップ以上のことをするためにそれを使用することができます：

を

(clojure.set/rename-keys {:a 1 :b 2 :c 3 :d 4} 
         {:a :b, 
          :b :c, 
          :c :d, 
          :d: :a}) 
;; {:b 1, :c 2, :d 3, :a 4} 

---

編集：利益（たぶん）このアプローチには、「ナイーブ」ソリューションは、それが必要なキーが実際に存在することを確認するためのチェックを行っていることである上：の

=> (defn swap [m k1 k2] (assoc m k1 (m k2) k2 (m k1))) 
=> (swap {:a 1 :b 2 :c 3} :a :d) 
;; {:a nil, :b 2, :c 3, :d 1} 

=> (clojure.set/rename-keys {:a 1 :b 2 :c 3} {:a :d, :d :a}) 
;; {:b 2, :c 3, :d 1}