Bir vektörde iki öğenin yerini almanın deyimsel yolu nedir

Question

Aşağıdakileri yapmak için daha iyi veya daha özlü bir yol var mı?

(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

Özellikle zarif bir çözüm düşünemiyorum. Yazmayı şu şekilde yazabilirim:

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