命名的让尾递归

Question

这两个例子做一个数字的阶乘：

(define (factorial n)
  (define (execute n result)
    (cond
         [(> 2 n) result]
         [else (execute (- n 1) (* result n))]))
  (execute n 1))

和

(define (factorial n)
  (let loop ((curr n)
             (result 1))
    (cond
         [(> 2 curr) result]
         [else (loop (- curr 1) (* result curr))])))

区别在于使用命名的let。它们既是纯递归函数又是尾递归函数吗？

Answer 1

是的，它们是尾递归的，它们本质上是等价的。

命名 let 只是函数定义的简写，以及使用初始值作为参数的第一次调用。

如果一个函数对自身的所有调用都位于尾部位置，则函数是尾递归的，即它只是返回该调用的值。在第一个函数中，对 execute 的递归调用位于尾部位置;在第二个函数中，对loop的调用也是如此。