在球拍中用Lambda进行迭代？

Question

这可能是一个简单的问题，但我似乎无法弄清楚。 在下面的示例中，我想创建一个以递归方式创建项目列表的list-of-obj函数。

例：

> (list-of-obj 'a 5)
'(a a a a a)

编码：

#lang racket
(define (list-of-obj obj n)
  (letrec ((helper
           (lambda (obj n result)
             (if (> n 0)
               (helper obj (- n 1) (cons obj result))
               result))))
      helper obj n 0))

但是，这导致输出为0 。 有指针吗？ 我是球拍/计画的新手。

Answer 1

Racket中最常见的解决方案是：

(make-list 5 'a)
=> '(a a a a a)

也就是说，如果内置功能可以满足您的要求，则您不应重新发明轮子。 但是，如果您需要从头开始编写，则可以做到这一点：

(define (list-of-obj obj n)
  (letrec ((helper
            (lambda (obj n result)
              (if (> n 0)
                  (helper obj (- n 1) (cons obj result))
                  result))))
    (helper obj n '())))

您的代码有两个问题：

• 对helper的调用必须被()包围，因为这就是您在Scheme中调用过程的方式。
• 假设我们正在构建一个列表作为输出，则累加器的初始值必须为空列表，而不是像原来那样为0 。