[英]group-by by multiple keys in Clojure
如何通过多个键对一组地图进行分组?
例如:
(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}]]
(group-by #(select-keys % [:a :b]) m1)
这会返回一张地图:
{{: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)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.