Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
; What function can I put as FOO here to yield true
; Tried: hash-set, conj, concat
(defn kv [bag [k v]]
(update-in bag [k] conj v))
(defn mergeMatches [propertyMapList]
"Take a list of maps and merges them combining values into a set"
(reduce #(reduce kv %1 %2) {} in))
(def in
{:a 1}
{:a 2}
{:a 3}
{:b 4}
{:b 5}
{:b 6} ))
;; at the REPL
;user> (mergeMatches in)
;returns this map {:b (6 5 4), :a (3 2 1)}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment