评论者:nberger
bq. 我们讨论了 maybe 将 nil 作为 collect 中不标记的标志进行治疗,但我个人并不特别喜欢这个想法。
或许我们可以使用一个命名空间关键字来指示应该忽略标签?比如 {{clojure.test.check.stats/ignore}}。这样我们就可以通过创建一个在 pred 不匹配时返回 {{stats/ignore}} 的函数, easy 地将 {{classify}} 实现为 {{collect}}。
`
(defn collect
[prop label-fn]
(gen/fmap
(fn [{:keys [args] :as result-map}]
(let [label (apply label-fn args)]
(if (= ::ignore label)
result-map
(update result-map :labels conj label))))
prop))
(defn classify
[prop pred label]
(collect prop (fn [& args]
(if (apply pred args)
label
::ignore))))
`
另一个选择可能是给 {{collect}} 添加一个额外的参数,以接收一个标志,关于是否应将 nil 作为标签处理或忽略它。我更喜欢 {{:stats/ignore}}。