如何交換2個元素向量

Question

矢量如何擴展該： What is the idiomatic way to swap two elements in a vector

基本上2D陣列？

[[1 2 3] [4 5 6] [7 8 9]] --> [[1 2 5] [4 3 6] [7 8 9]] 

Answer 1

使用get-in和assoc-in：

(defn swap-in [vv p1 p2] 
    (let [v1 (get-in vv p1) 
     v2 (get-in vv p2) 
    (-> vv 
     (assoc-in p1 v2) 
     (assoc-in p2 v1)))) 

所以現在：

(def my-vec [[1 2 3] [4 5 6] [7 8 9]]) 
(swap-in my-vec [0 2] [1 1]) 
=> [[1 2 5] [4 3 6] [7 8 9]] 

這將嵌套到任意 「深度」 載體工作，只要在我的 - 指定位置vec實際上存在。