Collecting maps' values

maps.clj

user=> (defn map-vals [f m]
  #_=>   (into {} (for [[k v] m] [k (f v)])))
#'user/map-vals
user=>

user=> (defn collect [ms]
  #_=>   (apply merge-with concat
  #_=>     (for [m ms] (map-vals list m))))
#'user/collect
user=>

user=> (collect [{:a 1 :b 2} {:a 11 :c 3}])
{:c (3), :b (2), :a (1 11)}