Clojure，对某些功能的思考

Question

我在 repl（lein-repl 和 light table）上玩耍，发现使用 some 函数有些奇怪：

(def my-vec [5 :test])
(some even? my-vec)     
;=>  java.lang.IllegalArgumentException: Argument must be an integer: :test
;            core.clj:1351 clojure.core/even?
;            core.clj:2515 clojure.core/some

(some odd? my-vec)      ;=> true
(some integer? my-vec)  ;=> true
(some map? my-vec)      ;=> nil

(def my-vec2 [4 :test])
(some even? my-vec2)     ;=> true
(some odd? my-vec2) 
;=> java.lang.IllegalArgumentException: Argument must be an integer: :test
;            core.clj:1351 clojure.core/even?
;            core.clj:1357 clojure.core/odd?
;            core.clj:2515 clojure.core/some

(some integer? my-vec)  ;=> true
(some map? my-vec)      ;=> nil

some 的文档说：

some
clojure.core
([pred coll])
Returns the first logical true value of (pred x) for any x in coll,
  else nil.  One common idiom is to use a set as pred, for example
  this will return :fred if :fred is in the sequence, otherwise nil:
  (some #{:fred} coll)

为什么我会收到关于奇数整数的错误？/偶数？当它不在向量中时？它不应该返回 nil 吗？

Answer 1

有些人会将谓词应用于集合的每个元素，直到它得到一个真实的值。

如果是

(some even? [5 :test])

some会试试

(even? 5) ;=> false

然后

(even? :test) ;=> Exception...

因为even? 需要一个整数。

试试吧

(some (every-pred integer? even?) [5 :test])
;=> nil

(some (every-pred integer? even?) [5 6 :test])
;=> true