方案 / Drracket 欧拉数

Question

我正在尝试在 drracket aka Scheme 中实现欧拉数。 我通过搜索功能看到了一个解决方案，但它很复杂。

 (define (fakultät n)
  (cond
    [(= n 0) 0]
    [(= n 1) 1]
    [else (* (fakultät (- n 1)) n)]))
(define (e n)
  (cond
    [(= n 0) 1]
    [(= n 1) 2.72]
    [else (+ (/ 1 (fakultät n )) (e(- n 1)))]))

首先我定义了一个阶乘，然后我定义了 e 函数。 结果不知何故不正确

Answer 1

旁注您确实应该在您的问题中提供更多详细信息，例如输入和实际输出是什么（通常是预期输出，但在这种情况下它有点像明确）

我认为错误在于该行

[(= n 1) 2.72]

我不确定你从哪里得到这条线。我唯一的猜测是，这是基于某种近似方法的其他一些实现的遗留物。 e 大约是 2.718... 所以 2.72 单独大于正确答案，您将添加更多 1/n!。

如果您删除该行，代码似乎可以正常工作，如您所见 here