agrupar por varias teclas en Clojure

Question

¿Cómo agrupar una colección de mapas por varias claves?

Por ejemplo:

(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) 

me gustaría volver a este:

[{: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) 

Esto devuelve un mapa:

{{: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}]} 

para obtener exactamente el valor de retorno lo especificó, envuélvalo en (vec (apply concat ...)):

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

Esto es equivalente, pero quizás más bonita:

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