创建正确列表的方案缺点问题

Question

我在附加到该方案函数中的列表时遇到问题。

该函数旨在接受 2 个参数，并返回一个由第二个元素组成的列表，其次数与第一个元素中指定的次数相同。例如，如果您调用 (make-list? 5 4)，您的输出应为 (4 4 4 4 4)。

问题是当我使用 cons 时，我得到 ((((4 . 4) . 4) . 4) . 4) 。据我了解，我每次都会将其作为对象附加到整个列表的末尾，而不是我想要的最后一个元素。我不确定如何解决它。

这是我的函数，关于如何将最后一个元素而不是列表作为对象的建议会很棒。 （或者其他建议，如果这不是唯一/真正的问题。）

;make-list
(define make-list?
  (lambda (N A)
    (if (= N 1)
       A
       (cons (make-list?(- N 1) A ) A)
    )
  )
)

Answer 1

一个好的经验法则是每个列表都以'()终止。在这种情况下，将基本情况设置为 0 并让它返回空列表可能更具说明性：

(define make-list?
  (lambda (n a)
    (if (zero? n)
        '()
        (cons a (make-list (sub1 n) a)))))

因此，在本例中，如果我们命中 0，则返回空列表以“限制”我们的列表重新建设。

Answer 2

你的问题很烦人，是由细胞的工作方式引起的。如果 b 不是列表，则 (cons ab) 创建一个 cons 单元格。通过重新排序，您可以将原子添加到列表中，而不是相反，并使最里面的项目成为一个列表（顺便说一句，您可以使用 (cons A '()) 而不是 (list A)在下面的定义中）你可以解决这个问题。

(define make-list?
  (lambda (N A)
    (if (= N 1)
       (list A)
       (cons A (make-list?(- N 1) A ))
    )
  )
)