每次递增都会创建一个子列表的 Lisp 程序
Lisp program that creates a sublist with each increment
我目前正在开发一个程序，该程序通过列表递增并在每次递增时在列表中创建一个子列表。例如，如果我有一个列表
(1 2 3 4 5 6)
。然后我想增加它并创建
(1 (2 (3 (4 (5 (6))))))
。到目前为止我有：
(defun INCREMENT (L) (unless (endp L) (cons (list (first L)) (INC (rest L)))))
但这一切都会return是
((1) (2) (3) (4))
我知道它只是增加了使用列表的次数以及遍历列表的元素，但我仍在学习 Lisp 的语法。有人可以帮我解决这个问题吗？
这是一个可能的解决方案，技巧是在 调用递归之前使用list 。另请注意，我们必须处理基本情况：当列表为空且只剩下一个元素时：
(defun INCREMENT (L)
(cond ((endp L) '())
((endp (rest L)) (list (first L)))
(t (cons (first L)
(list (INCREMENT (rest L)))))))
我目前正在开发一个程序，该程序通过列表递增并在每次递增时在列表中创建一个子列表。例如，如果我有一个列表
(1 2 3 4 5 6)
。然后我想增加它并创建
(1 (2 (3 (4 (5 (6))))))
。到目前为止我有：
(defun INCREMENT (L) (unless (endp L) (cons (list (first L)) (INC (rest L)))))
但这一切都会return是
((1) (2) (3) (4))
我知道它只是增加了使用列表的次数以及遍历列表的元素，但我仍在学习 Lisp 的语法。有人可以帮我解决这个问题吗？
这是一个可能的解决方案，技巧是在 调用递归之前使用list 。另请注意，我们必须处理基本情况：当列表为空且只剩下一个元素时：
(defun INCREMENT (L)
(cond ((endp L) '())
((endp (rest L)) (list (first L)))
(t (cons (first L)
(list (INCREMENT (rest L)))))))