Quelle est la manière idiomatique d'échanger deux éléments dans un vecteur?

Question

Existe-t-il une manière meilleure ou plus concise de faire ce qui suit?

(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

Je ne trouve pas non plus de solution particulièrement élégante. Voici comment je l'écrirais:

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