gistfile1.clj

(defn fold-vec-maps-into-map [coll]
  "Provided a reducer, concatenate into a vector.
   Note: same as (into [] coll), but parallel."
  (let [merge-fn (partial merge-with into)]
    (r/fold (r/monoid merge-fn hash-map) merge-fn coll)))