clojure.set/intersection 处理向量不正确

Question

clojure.set/intersection 看起来使用向量的索引作为值。如果您意外地将向量作为其中一个参数传递，这会导致非常奇怪的行为。

`
ti.repl-init=> (clojure.set/intersection #{0 1} [2 2 2 2 2])

{0 1}

ti.repl-init=> (clojure.set/intersection [2 2 2 2] #{0 1})

{0 1}

ti.repl-init=> (clojure.set/intersection [0 1] [2 2 2 2])
[0 1]
ti.repl-init=> (clojure.set/intersection [2 2 2 2] [2 2 2 2])
[2 2 2 2]
ti.repl-init=> (clojure.set/intersection [3 3 3 ] [2 2 2 2])
[3 3 3]
ti.repl-init=> (clojure.set/intersection [55] [2 2 2 2])

ClassCastException 类似于 clojure.lang.PersistentVector 无法转换为 clojure.lang.IPersistentSet clojure.core/disj (core.clj:1476)
`

如果任一参数是列表，则会引发一个可能的类转换异常，这可能没有人们期望的那么清楚。

`
ti.repl-init=> (clojure.set/intersection #{0 1} (list 2 2 2 2))

IllegalArgumentException 不支持在类型：clojure.lang.PersistentList 上调用 contains? clojure.lang.RT.contains (RT.java:814)
`

如果所有参数都是列表，也会发生相同的情况。

Answer 1

_由 ashtonkemerling 发布的评论

更多奇怪的副作用。


ti.repl-init=> (clojure.set/intersection #{:foo} {:foo 1})
#{:foo}
ti.repl-init=> (clojure.set/intersection #{:foo} {})
{}
ti.repl-init=> (clojure.set/intersection #{:foo} [:foo])
#{}
ti.repl-init=> (clojure.set/intersection [:foo] [:foo])

ClassCastException 类似于 clojure.lang.PersistentVector 无法转换为 clojure.lang.IPersistentSet clojure.core/disj (core.clj:1476)
ti.repl-init=> (clojure.set/intersection [0] [:foo])
[0]

Answer 2

由 alexmiller 发布的评论

参见 CLJ-1953 的评论

Answer 3

评论者：jafingerhut

如果您想找一个与 clojure.set 函数行为相同的现成兼容替换品，但它们会对您提供的参数进行运行时类型检查，如果类型不正确则抛出异常（例如，对于并集、交集、差集、子集？和超集不是集合），请考虑使用 fungible 库：https://github.com/jafingerhut/funjible

Answer 4

参考资料： https://clojure.atlassian.net/browse/CLJ-1954（由 alex+import 报告）