我经常写：(some #(when (pred %) %) ...) 而经常误写成：(some #(pred %) ...)。我认为将 (some #(when (pred %) %) ...) 作为 clojure.core 中的内建函数会很有用。
建议名称： first-by。请随意提出其他名称，我会在这里列出它们。
(first-by #(= (:id %) 2) [{:id 1} {:id 2} {:id 3}]) ;;=> {:id 2}
统计信息，在我的本地 .m2 目录中，我找到了198个 (some #(when ...) ..) 表达式和1503个 (some #(foo ...) ...) 表达式，其中 foo 不是 when。
总的 some 和 fn 使用情况：1701个，其中 11% 是 some 和 when 表达式。
找到这些用法的程序
(ns grasp
(:require
[clojure.spec.alpha :as s]
[grasp.api :as g]))
(s/def ::some+when
(s/cat :some #{'some}
:fn (s/spec (s/cat :fn #{'fn 'fn*}
:args vector?
:when (s/spec (s/cat :when #{'when} :whatever (s/* any?)))))
:coll any?))
(defn keep-fn [{:keys [spec expr uri]}]
(let [conformed (s/conform spec expr)]
(when-not (s/invalid? conformed)
{:expr expr
:uri uri})))
(defn -main [& args]
(let [classpath (first args)
matches (g/grasp classpath ::some+when {:keep-fn keep-fn})]
(prn (count matches))))
{:deps {io.github.borkdude/grasp {:mvn/version "0.0.3"}}}
在 grep.app 上，我找到大约 8% 的 some+when 形状的用法。
