如何交换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实际上存在。