scheme - 计算 Scheme 中的自然对数 e

Question

e=1/0!+1/1!+1/2!+1/3!……

我写了这样的代码，但无论我输入什么，它都只返回 2....
你能帮我解决这个问题吗？

 (define (fact n)
        (if (= n 0)
            1
            (* n (- n 1))))

    (define (e limit)
            (if (= limit 0)
                1
                (+ (/ 1 (fact limit))  (e (- limit 1)))))

Answer 1

fact 中有错误程序:

(define (fact n)
  (if (= n 0)
      1
      (* n (fact (- n 1))))) ; you forgot to recursively call `fact`

彻底测试每个过程，一个简单的单元测试就会发现问题出在 fact而不是在 e程序。