¿Cuál es la forma idiomática de intercambiar dos elementos en un vector?

Question

¿Hay alguna forma mejor o más concisa de hacer lo siguiente?

(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)))) 

Answer 1

No puedo pensar en una solución particularmente elegante, tampoco. Así es como lo escribiría:

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