Re: Does a standard function exist that acts like assoc except it applies fns to vals

[Meikel Brandmeyer]

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