在 Dr. Racket 中，如何编写 Tetration 函数

Question

我将如何在 Dr. Racket 中编写 Tetration 函数。 到目前为止，这是我的代码：

(define (awesome-tetration k p)
  (cond
    [(= p 1) (expt k p)]
    [else (expt (awesome-tetration k (sub1 p)) (expt k p))]))

如果我输入

(awesome-tetration 2 3)

我想要的输出是 2^2^2= 16 但是，我得到：

4294967296

为什么会发生这种情况。 我能得到一些关于我的代码有什么问题的指示吗？ 谢谢。

Answer 1

递归步骤是正确的，您调用expt次数比需要的多。 解决方案更简单，您只需要这样做：

(define (awesome-tetration k p)
  (cond
    [(= p 1) (expt k p)]
    [else (expt k (awesome-tetration k (sub1 p)))]))

现在它的工作原理：

(awesome-tetration 2 3)
=> 16