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)
`

如果任何参数是列表，您将获得一个ClassCastException，这可能没有预期的明显。

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

IllegalArgumentException contains?不支持类型： clojure.lang.PersistentList 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 提出）