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，然后map s first，以获取每个分组中的第一个项目。

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

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

Answer 2

如果你不介意扔掉：完全拉开，请考虑使用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"}}

Clojure：如何使用set / union进行比较

2 个答案: