【发布时间】:2011-08-24 04:27:32
【问题描述】:
是否有更好或更简洁的方法来执行以下操作?
(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]
"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]
(assoc v i2 (v i1) i1 (v i2)))
【讨论】: