gistfile1.clj

; 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 
	(list
		{: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)}