如何编写一个基于输入返回“n”个函数列表的函数

Question

我正在寻找一个返回“n”个函数列表的函数，每个函数将输入分别增加 1、2、3...n。

我使用 DrRacket 来尝试一下。预期结果示例：

> (map (lambda (f) (f 20)) (func-list 5))
(21 22 23 24 25)

我可以用静态方式写下来：

> (define (func-list num)
> (list (lambda (x) (+ x 1)) (lambda (x) (+ x 2)) (lambda (x) (+ x 3)) (lambda (x) (+ x 4)) (lambda (x) (+ x 5)))

[编辑]

还有一些对实施的限制：

1. 只能使用“cons”和算术运算
2. func-list 应该只将一个参数作为输入（'n' 是在这种情况下要返回的函数的数量）

如果有人可以帮助我，那就太好了。提前致谢。

Answer 1

与其显式写出列表，更好的方法是递归为任意 n 构造它，如下所示：

(define (func-list n)
  (define (func-lst a n)
    (if (> a n)
        empty
        (cons (lambda (x) (+ x a))
              (func-lst (add1 a) n))))
  (func-lst 1 n))

例如：

> (map (lambda (f) (f 20)) (func-list 0))
'()
> (map (lambda (f) (f 20)) (func-list 5))
'(21 22 23 24 25)