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

_Comment made by: 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 报告）