方案 - 递归地添加值到列表

Question

我正在尝试在方案中创建一个函数，以递归方式将值添加到空列表中。

我定义了一个空列表：

(define empty '() )

我已经定义了一个应该向列表添加值的函数：

(define (recapp empt x)
    (if (= 0 x)
      empt
      (begin
         (append empt x)
         (recapp empt (- x 1)))))

当我进入 Scheme (recapp empty 5) 时，我得到一个空列表，即使我想得到 (1 2 3 4 5)。有什么问题？

感谢您的帮助。

Answer 1

问题是 (append empt x) 没有修改empt 的值。因此，您只是通过recapp X（原始参数值）次传递empt（值'（））。

(define (recapp empt x)
    (if (= 0 x)
      empt
      (recapp (cons x empt) (- x 1))))

更接近你想要的。另请注意，原语iota 具有类似的功能。