Clojure:如何使用与集合/联合进行比较

Question

为了举例起见，假设我有两个集合：

(def set-a #{{:id 1 :name "ABC" :zip 78759} {:id 2 :name "DEF" :zip 78759}})
(def set-b #{{:id 1 :name "ABC" :zip 78753} {:id 3 :name "XYZ" :zip 78704}})

我想在集合之间找到一个联合，只使用 ：id 和 ：name 字段。但是，如果不使用自定义比较器，我会在集合中获得四个元素，因为 ：zip 字段不同。

(clojure.set/union set-a set-b)
#{{:id 3, :name "XYZ", :zip 78704} {:id 1, :name "ABC", :zip 78753}
{:id 1, :name "ABC", :zip 78759} {:id 2, :name "DEF", :zip 78759}}

使用自定义比较器或比较器在两个集合之间找到并集的偶像方法是什么？

Answer 1

您可以使用group-by来执行此操作：

(map first (vals (group-by (juxt :id :name) (concat set-a set-b))))

或螺纹：

(->> (concat set-a set-b)
(group-by (juxt :id :name))
(vals)
(map first))

这是通过键/值的组合对元素进行分组，即(juxt :id :name).然后，它抓取生成的地图的val，然后mapfirst，以获得每个分组中的第一项。

或者使用一些专门为此构建的代码，例如distinct-by.

请注意，这些方法适用于任何集合，而不仅仅是集合。

Answer 2

如果你不介意完全扔掉：zip，可以考虑使用clojure.set/project。

(clojure.set/union
(clojure.set/project set-a [:id :name])
(clojure.set/project set-b [:id :name]))
#{{:id 3, :name "XYZ"} {:id 2, :name "DEF"} {:id 1, :name "ABC"}}