关于函数式编程：合并映射列表，并将值组合到Clojure中的集合

Merge list of maps and combine values to sets in Clojure

我可以在这里把什么函数作为FOO放到最后产生真值？我使用了哈希集(仅对前两个值正确)，conj和concat，但我知道我对其中的任何一个都无法正确处理单元素vs设置条件。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(defn mergeMatches [propertyMapList]
"Take a list of maps and merges them combining values into a set"
(reduce #(merge-with FOO %1 %2) {} propertyMapList))

(def in
(list
{:a 1}
{:a 2}
{:a 3}
{:b 4}
{:b 5}
{:b 6} ))

(def out
{ :a #{ 1 2 3}
:b #{ 4 5 6} })

; this should return true
(= (mergeMatches in) out)

处理此问题的最惯用的方法是什么？

此操作将执行：

1 2	(let [set #(if (set? %) % #{%})] #(clojure.set/union (set %) (set %2)))

为示例(Alex)更直接地重写：

1
2
3
4
5
6

(defn to-set [s]
(if (set? s) s #{s}))
(defn set-union [s1 s2]
(clojure.set/union (to-set s1) (to-set s2)))
(defn mergeMatches [propertyMapList]
(reduce #(merge-with set-union %1 %2) {} propertyMapList))

相关讨论

a)由于没有嵌套匿名函数的限制，它也是无效的。 b)不太漂亮！ :)
另外，我认为这将返回一组地图，而不是具有设置值的地图。
@Alex：a)没有这样的限制。您不能嵌套匿名函数文字(用#(...)创建)，但是可以嵌套匿名函数(尽管您需要使用fn)。 b)我想是关于口味的问题。 :-)另外，您应该尝试实际运行它，因为它发生的功能实际上会在替换reduce表达式中的FOO时使您的测试表达式返回true。
事后考虑，请注意，如果in集合包含具有设置值的映射，则这些值将在最终产品中变平。如果那是不希望的，那么最好放到loop / recur，因为任何基于reduce的解决方案都可能会使用令人费解的卷积归约函数，并且需要对结果图进行后处理。 (最重要的原因是merge-with仅在左侧映射不包含给定键的情况下才调用合并功能。)
@Alex：我当然不会尝试将我的回答按原样添加到您的代码中—我会将其分解为一个单独定义的fn(如果您确实想要的话，命名为FOO)，您可以在您的代码中引用它。合并形式。这是您的一项练习。 :-)但是，不，它不会生成一组映射-用作merge-with中的fn，它会生成具有设置值的映射。合并将永远不会产生集合。
@Micha ??：是的，我的意思是匿名函数字面量。 @Chas：我在问题上做了改写，并添加到您的答案中。
我认为这最终是一个合理的答案，并且肯定会采纳我的想法并将其扩展以使其起作用。我很好奇，将在以后丢弃的集合package是否会对性能或内存产生影响。
@Alex制作这样的单元素集实在太快了，不必担心，它们的生存时间很短，因此很快就会被GC回收。如果在性能分析后成为问题(我对此表示怀疑)，则可以使用definline获得一些性能提升(尤其是使用to-set)，并且可以将set-union替换为仅在需要时才明确创建新集合的东西。 conj值或并集现有集。

我没有写这个，但是它是@amitrathore在Twitter上贡献的：

1
2
3
4

(defn kv [bag [k v]]
(update-in bag [k] conj v))
(defn mergeMatches [propertyMapList]
(reduce #(reduce kv %1 %2) {} propertyMapList))

相关讨论

我不会为此使用合并功能，

1
2
3
4
5
6
7
8
9

(defn fnil [f not-found]
(fn [x y] (f (if (nil? x) not-found x) y)))
(defn conj-in [m map-entry]
(update-in m [(key map-entry)] (fnil conj #{}) (val map-entry)))
(defn merge-matches [property-map-list]
(reduce conj-in {} (apply concat property-map-list)))

user=> (merge-matches in)
{:b #{4 5 6}, :a #{1 2 3}}

fnil将很快成为核心的一部分，因此您可以忽略实现...但是它只是创建了另一个可以处理nil参数的函数的版本。在这种情况下，conj将用#{}代替nil。

因此对于提供的地图列表中的每个键/值，归约都与一个集合相结合。

相关讨论

@wmacgyver在Twitter上基于多地图提供的另一种解决方案：

1
2
3
4
5
6
7
8
9
10
11
12
13

(defn add
"Adds key-value pairs the multimap."
([mm k v]
(assoc mm k (conj (get mm k #{}) v)))
([mm k v & kvs]
(apply add (add mm k v) kvs)))
(defn mm-merge
"Merges the multimaps, taking the union of values."
[& mms]
(apply (partial merge-with union) mms))

(defn mergeMatches [property-map-list]
(reduce mm-merge (map #(add {} (key (first %)) (val (first %))) property-map-list)))

相关讨论

这似乎有效：

1
2
3
4

(defn FOO [v1 v2]
(if (set? v1)
(apply hash-set v2 v1)
(hash-set v1 v2)))

不是很漂亮，但是可以。

1
2
3

(defn mergeMatches [propertyMapList]
(for [k (set (for [pp propertyMapList] (key (first pp))))]
{k (set (remove nil? (for [pp propertyMapList] (k pp))))}))

相关讨论