grupowanie według wielu kluczy w Clojure

Question

Jak pogrupować kolekcję map według wielu kluczy?

Na przykład:

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

Chciałbym wrócić w tym:

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

Zwraca mapę:

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

aby uzyskać dokładnie wartości zwracanej podałeś, zawiń go w (vec (apply concat ...)):

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

Jest to równoważne, ale chyba ładniej:

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