Lisp - 可变大小的列表列表

Question

我必须使用 lisp 表示棋盘游戏。为此，我必须创建一个构建板的函数。

此函数接收一个整数，表示原始列表中子列表的数量。这些子列表中的每一个都有不同的大小，以 3*n 的比例增长。例如，如果使用数字 3 调用该函数，它将创建一个包含 3 个子列表的列表，第一个有 3 个位置，第二个有 6 个，第三个有 9 个。

此外，每个位置都需要用'*初始化。

要做到这一点，我认为我必须对 make-list 进行递归调用，但我似乎无法正确地做到这一点。我曾尝试使用“dotimes”循环来做到这一点，但我没有成功。

到目前为止我有:

(defun faz-tabuleiro (n_aneis)
    (make-list n_aneis :initial-element (...)

Wich 创建了主列表，但我如何才能以正确的大小表示其中的子列表？

Answer 1

这是否符合您的要求？

(defun make-table (n)
  (loop :for i :from 1 :to n
        :collect (make-list (* i 3) :initial-element "*")))