Vector 交换向量中两个元素的惯用方法是什么

有没有更好或更简洁的方法来完成以下工作

(defn swap [v i1 i2]
  "swap two positions in a vector"
  (let [e1 (v i1)
        e2 (v i2)]
       (-> (assoc v i1 e2)
       (assoc i2 e1))))

---

我也想不出一个特别优雅的解决方案。下面是我如何写的：

(defn swap [v i1 i2] 
   (asso­c v i2 (v i1) i1 (v i2)))­

---

我更喜欢你。