Lisp - 可变尺寸列表清单

Question

我必须使用lisp来代表棋盘游戏。要做到这一点，我必须创建一个构建电路板的函数。

该函数接收一个整数，该整数表示原始列表所具有的子列表的数量。这些子列表中的每一个都有不同的规模，以3 * n的比例增长。作为一个例子，如果功能被称为数字3，它将创建一个列表与3个子列表，第一个3位置，第二个6和第三个9。

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

要做到这一点，我认为我必须做一个递归调用清单，但我似乎无法做到这一点。我试图用'dotimes'循环来做到这一点，但我没有任何成就。

到目前为止，我有：

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

至极创建主列表，但我怎么能代表内部使用大小合适的子列表？

Answer 1

这是做你想做的吗？

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

Answer 2

将数字列表映射到子列表的长度。为这个映射使用一个函数，它返回用初始元素初始化的右列表。