Clojure：惯用语（当（谓词x）x）

Question

以同样的方式转换

(if (something)
    something
    fallback)

进入较短版本：

(or something fallback)

我想知道是否有一个组合函数/优雅内置函数用于将值线程化为谓词验证，如：

(when (pred x)
  x)

像

这样的东西

(thread-pred pred x)

我可以轻松地构建一些函数或宏来完成它，但我不想在这里去NIH。

Answer 1

这比我承认的时间更长 - 但是你走了：

请注意这可能会爆炸。

{{1}}

编辑：正如评论正确指出的那样，将身体绑定到像这样的自动身份更明智：

{{1}}