Re: Apply a function to some values in a map

[Stephen C. Gilardi]

On Jun 18, 2009, at 2:39 AM, Stephen C. Gilardi wrote:

(defn map-vals
 ([f m]
    (reduce conj {}
            (map (fn [[k v]] [k (f v)]) m)))
 ([f m keyseq]
    (conj m (map-vals f (select-keys m keyseq)))))

I like the two-argument map-vals better in this version:

(defn map-vals
  ([f m]
     (zipmap (keys m) (map f (vals m))))
  ([f m keyseq]
     (conj m (map-vals f (select-keys m keyseq)))))

--Steve

smime.p7s
Description: S/MIME cryptographic signature