lisp - 通过嵌套列表 LISP 递归

Question

我将如何递归嵌套列表？

例如，给定:'((A 1 2) (B 3 4))

如何将 2 添加到每个嵌套子列表中的第二个元素？

(defun get-p0 (points)
    (loop for x from 0 to
            (-  (list-length    points) 1) do
                (+ 2 (cadr (nth x points)))
    )
)

我不太确定为什么 (get-p0 '((A 1 2) (B 3 4))) 返回 NIL。

Answer 1

我会选择这样的东西:

(loop for (letter x y) in '((A 1 2) (B 3 4))
     collect (list letter (+ 2 x) y))

原因:它更短而且您不需要测量列表的长度来迭代它(您为什么要这样做？)