使用LiSP从列表中创建子列表

Question

我很难创建子列表：'（（3（3）2）1）'从列表'（3 2 1）'。 我不知道从哪里开始，我们将非常感谢任何帮助。

Answer 1

仔细查看输入。您将看到结果中的每个列表都是两个元素 - 除了第一个。既然我们需要以一种方式处理第一个缺点，而另一个方法需要处理其他所有缺点，我们将在两个函数之间分割工作，第二个函数将是一个循环：

(defun nest-left (list)
  (if (null list)
      nil
    (nest-aux <?> (cdr list))))

(defun nest-aux (acc list)
  (if (null list)
      <?>
    <?>))

我将让您填写<?> s。