scheme - 从 a 到 b 的所有整数的总和，我的代码有什么问题？

Question

目标是创建一个代码来计算从 a 到 b 的所有整数的总和如果 a > b 那么它应该评估为 0。

(define (sum-from-to a b)
  (if (> a b)
      0
      (+ a (sum-from-to (- a 1) b))))

我的问题是，当我运行它时，内存不足。我的代码有什么问题？

Answer 1

递归步骤不正确。假设a <= b修复就这么简单:

(define (sum-from-to a b)
  (if (> a b)
      0
      (+ a (sum-from-to (+ a 1) b)))) ; add 1, don't subtract

想想，我们要a变得更接近b在每一步，直到它跳过它。如果我们减少 a , 然后它将远离 b ，与我们想要的完全相反。这就是您的程序内存不足的原因，a从未达到b .