如何在向量的向量中交换 2 个元素

Question

如何扩展它： What is the idiomatic way to swap two elements in a vector

本质上是一个二维数组？

[[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]]

这将适用于嵌套到任何“深度”的向量，只要 my-vec 中的指定位置实际存在。