My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

hoeck

By: a guest | Feb 8th, 2010 | Syntax: Lisp | Size: 0.31 KB | Hits: 80 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. (defn map-map [from-map func] (reduce merge (for [[key value] from-map] (hash-map key (func value)))))
  2. (map-map {:a 2 :b 4} #(* 3 %))
  3.  
  4. ;; other possible solutions:
  5. (defn map-map [f m]
  6.   (into (empty m) (map (fn [[k v]] [k (f v)]) m)))
  7.  
  8. (let [m {:a 2 :b 4}]
  9.   (merge-with * m (zipmap (keys m) (repeat 3))))
create new paste | create new version of this paste RAW Paste Data