Hi, Am 22.11.2009 um 22:32 schrieb samppi:
(defn vary [coll & keys-and-fns] (let [fn-map (apply arrray-map keys-and-fns) keys-and-vals (mapcat #((val %) (get coll (key %))) fn-map)] (apply assoc-args coll keys-and-vals)))
As Jon said: update-in. (-> coll (update-in [:x] fn-x) (update-in [:y] fn-y)) Sincerely Meikel
smime.p7s
Description: S/MIME cryptographic signature