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不支持的类型：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

Comment made by: 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 提出）