如何提取表中的子表

peraperson

((4 <图元名: 7ef69248> 2 (0 (1 1 1)) (0 (2 2 2))))
请问如何把上面那个表提取成（( 1 1 1) (2 2 2))?

注：用了(setq newlst (mapcar '(lambda (x) (cdr (cdr (cdr (cdr x))))) lst)) 得到的是 (((0 (2 2 2))))

edata

1. _$ (setq lst '((4 <图元名: 7ef69248> 2 (0 (1 1 1)) (0 (2 2 2)))))
   
2. (setq newlst (mapcar 'cadr (cddddr(car lst))))
   
3. ((4 <图元名: 7EF69248> 2 (0 (1 1 1)) (0 (2 2 2))))
   
4. ((1 1 1) (2 2 2))
   
5. _$

_$ (setq lst '((4 <图元名: 7ef69248> 2 (0 (1 1 1)) (0 (2 2 2)))))<br /> (setq newlst (mapcar 'cadr (cddddr(car lst))))<br /> ((4 <图元名: 7EF69248> 2 (0 (1 1 1)) (0 (2 2 2))))<br /> ((1 1 1) (2 2 2))<br /> _$

Andyhon

try
(mapcar 'cadr (cdddar Lst))

ivde

mapcar last cdr cdr. cdr

peraperson

实在是太谢谢上面三位大大了 明经真是个有爱的地方

peraperson

不好意思哈 再追问一个问题
‘（（lst1 lst2 lst3)  (lst4 lst5) (lst6 lts7) ) 这种如何整合成表’（lst1 lst2 lts3 lts4 lts5 lts6 lts7)?
谢谢

edata

1. (apply 'append '((1 2 3)(2 3) (4 5)))
   
2. (1 2 3 2 3 4 5)

(apply 'append '((1 2 3)(2 3) (4 5)))<br /> (1 2 3 2 3 4 5)

peraperson

edata 发表于 2014-6-29 21:18

谢谢e大