1

我是 LISP 的新手，所以我不太擅长这个......所以我的问题是，我得到了一个结构（列表列表），我的工作是创建一个函数来检索每个中的第二个项目子列表（从 0 开始计数）。所以最后我想返回（果果代理院子）。

我可以进行遍历列表的基本递归调用，但我似乎无法弄清楚如何获取子列表中的第二项。

列表结构：

(defparameter *jack*
'((orange#8 apple fruit basment)
(pear#12 mango fruit basment)
(jones rabbit agent closet)
(jack dog agent yard)
))

我到目前为止的代码：

(defun attempt(*data*)
(cond ((null *data*)
     nil
     )
    ((attempt (rest *data*)))
    ))

我在想的是我应该使用 first 和 rest 遍历列表子列表，但就像我说的那样，我想不通。帮助？

4

3 回答 3

3 
CL-USER> (mapcar #'caddr *jack*)
(FRUIT FRUIT AGENT AGENT)

编辑：如果您想练习递归方法，请尝试：

(defun attempt (list-of-lists)
    (if (null list-of-lists) nil
        (cons (third (car list-of-lists))
              (attempt (cdr list-of-lists)))))

EDIT2：尾递归：

(defun attempt-tail (list-of-lists)
    (labels ((iter (rest ans)
               (if (null rest) (nreverse ans)
                   (iter (cdr rest) (push (third (car rest)) ans)))))
      (iter list-of-lists nil)))

EDIT3：当我在它的时候，这里是循环版本：

(loop for list in *jack* collect (third list))
于 2013-10-29T22:39:41.573 回答
3

这很可能是您正在寻找的：

(mapcar #'cadr *jack*)
于 2013-10-29T22:23:57.980 回答
1

是的，您可以为此过程定义一个尾递归过程；

(defun nths (n l)"returns list of nths of a list of lists l"
  (nths-aux n l '()))

(defun nths-aux (n l A)
  (if (null l) A;or (reverse A)
   (nths-aux n (cdr l)  (cons (nth n (car l)) A))))
于 2013-12-13T07:41:53.903 回答