Map creators

map.clj

(defn mapmap
  "Apply kf and vf to a sequence, s, and produce a map of (kf %) to (vf %)."
  ([vf s]
     (mapmap identity vf s))
  ([kf vf s]
     (zipmap (map kf s)
             (map vf s))))

(defn mapmapmap
  "Apply kf and vf to the keys and vals of a map and zip the results."
  ([vf m]
     (mapmapmap identity vf m))
  ([kf vf m]
     (mapmap (comp kf key) (comp vf val) m)))