raggruppamento con più chiavi in ​​Clojure

Question

Come raggruppare una raccolta di mappe con più chiavi?

Ad esempio:

(def m1 [{:a 1 :b 2 :c 3} 
     {:a 1 :b 2 :c 4} 
     {:a 1 :b 4 :c 3} 
     {:a 1 :b 4 :c 3}]) 

(group-by-x [:a :b] m1) 

mi piacerebbe tornare in questo modo:

[{:a 1 :b 2} [{:a 1 :b 2 :c 3}{:a 1 :b 2 :c 4}], 
{:a 1 :b 4} [{:a 1 :b 4 :c 3}{:a 1 :b 4 :c 3}]] 

Answer 1

(group-by #(select-keys % [:a :b]) m1) 

Questo restituisce una mappa:

{{:b 2, :a 1} [{:a 1, :c 3, :b 2} {:a 1, :c 4, :b 2}], 
{:b 4, :a 1} [{:a 1, :c 3, :b 4} {:a 1, :c 3, :b 4}]} 

per ottenere esattamente il valore di ritorno hai specificato, avvolgilo in (vec (apply concat ...)):

(vec (apply concat (group-by #(select-keys % [:a :b]) m1))) 
; => as in the question text 

Ciò equivale, ma forse più bella:

(->> (group-by #(select-keys % [:a :b]) m1) 
    (apply concat) 
    vec)