编辑列表中的每个偶数索引元素

你的代码不起作用。您需要使用 if 或 cond 使代码遵循其中的一条路径。现在,您在调用一个名为 (atom (cdr lst)) 。如果它曾经运行过,那么它将是死代码,因为下一行始终是运行的。它是无限递归。

那么如何计数呢。您可以将每个步骤视为一次处理两个元素的句柄。您需要注意以下事项:

(enc-odds '())         ; ==> ()
(enc-odds '(1))        ; ==> (1)
(enc-odds '(1 2 3 ...) ; ==> (1 (2) (enc-odds (3 ...))

另一种方法是使用额外的参数创建助手:

(defun index-elements (lst)
  (labels ((helper (lst n)
             (if (null lst)
                 lst
                 (cons (list (car lst) n)
                       (helper (cdr lst) (1+ n))))))
    (helper lst 0)))
(index-elements '(a b c d))
; ==> ((a 0) (b 1) (c 2) (d 3))

对于非递归解决方案,循环允许构造同时迭代器:

(defun every-second (list)
  (loop
      for a in list
      for i upfrom 1
      if (evenp i) collect (list a)
      else collect a))

(every-second '(a b c d e))
; ==> (A (B) C (D) E) 

看见 http://www.gigamonkeys.com/book/loop-for-black-belts.html 为了更好地解释循环