限制 Clojure repl 中的递归级别

Question

在 repl 中工作时，有一种方法可以指定在 repl 自动结束表达式计算之前重复的最大次数。例如，假设以下函数：

(defn looping []
  (loop [n 1]
    (recur (inc n))))

(looping)

有没有办法指示 repl 在 100 级递归后放弃？类似于print-level。

Answer 1

我恭敬地希望我没有忽视你问题的精神，但为什么不简单地使用 when 表达式呢？它简洁明了，根本不会改变函数的主体（1 行额外的行和结束括号）。

虽然我不相信你想要的存在，但实现你自己的将是微不足道的：

(def ^:dynamic *recur-limit* 100)

(defn looping []
  (loop [n 1]
    (when (< n *recur-limit*)
      (recur (inc n)))))

大概这还没有被添加到语言中，因为使用现有的语言原语很容易构建你需要的东西；除此之外，如果该设施确实存在但“不可见”，则可能会导致大量混乱和错误，因为代码并不总是以可预测和引用透明的方式运行。