clojure - 在 Clojure 中按多个键分组

Question

如何通过多个键对 map 集合进行分组？

例如:

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

我想退掉这个:

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

这将返回一个 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}]}

要准确获取您指定的返回值，请将其包装在 (vec (apply concat ...)) 中。 :

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

这是等效的，但可能更漂亮:

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