clojure - Clojure 中的高阶 if-then-else？

Question

如果数据满足特定条件，我经常需要通过一个函数来运行我的数据。通常，函数 f 和条件检查器 pred 都被参数化为数据。出于这个原因，我发现自己希望有一个既不知道 f 也不知道 pred 的高阶 if-then-else。

例如，假设我想将 10 添加到 (range 5) 中的所有偶数。而不是

(map #(if (even? %) (+ % 10) %) (range 5))

我更愿意有一个助手——我们称它为fork——然后​​这样做:

(map (fork even? #(+ % 10)) (range 5))

我可以继续将 fork 实现为函数。它看起来像这样:

(defn fork
  ([pred thenf elsef]
   #(if (pred %) (thenf %) (elsef %)))
  ([pred thenf]
   (fork pred thenf identity)))

这可以通过优雅地组合 core 功能来完成吗？一些不错的 juxt/apply/some 链可能？

或者，您知道任何实现上述(或类似)的 Clojure 库吗？

Answer 1

正如 Alan Thompson 提到的，cond-> 是目前隐式地让“else”部分“返回不变的值”的一种相当标准的方式。但是，它并没有真正解决您成为更高阶的希望。我还有另一个不喜欢 cond-> 的原因:我认为(并且在发明 cond-> 时争论不休)通过每个匹配测试进行线程化是错误的，而不仅仅是第一个。它使得无法将 cond-> 用作 cond 的模拟。

如果你同意我的看法，你可以试试flatland.useful.fn/fix ，或我们在 cond->¹ 之前编写的该系列中的其他工具之一。

to-fix 正是您的 fork，除了它可以处理多个子句并接受常量和函数(例如，您可能想将 10 添加到其他偶数，但将 0 替换为 20):

(map (to-fix zero? 20, even? #(+ % 10)) xs)

使用 fix 很容易复制 cond-> 的行为，但反之则不然，这就是为什么我认为 fix 是更好的设计选择。

---

¹ 显然，距离 fix 最终版本发布 10 周年还有几周的时间。时间过得真快。