Clojure 中的递归函数

Question

我在 java 中编写了一个递归函数，并希望为 Clojure 实现相同的函数。

java代码sn-p如下。

private boolean solve(int i, int j) {
    // some other code
    if ((solve(i - 1, j)) == true) {
        return true;
    }
    if ((solve(i, j + 1)) == true) {
        return true;
    }
    // some code!!!!
    return false;
}

这如何在 Clojure 中实现？

Answer 1

一个几乎直接的等价物是

(defn solve [i j]
  (or ;; some other code
      (solve (dec i) j)
      (solve i (inc j))
      ;; some code
      ))

请注意缺少 return 语句 - 一切都是表达式。

在您的 java sn-p 中，“其他代码”必须具有返回真值的能力，否则最终会导致堆栈溢出（代替“无限递归”）。

代码如此短的原因是or 宏会使评估短路（即，一旦可以推断出有意义的结果，它就会停止评估）。

在 clojure 示例中，“一些其他代码”必须是可以评估为 false 或 nil 的表达式。

如果您需要从“其他代码”中“立即返回false”，您的表达式需要更复杂一些。