再次提问一个关于表操作的问题

peraperson

lst1 = ‘ （  (（1 1 z1)  (1 2 z1) )   ( ( 2 2 z2) )   ( ( 1 3 z3) ( 2 4 z3)  ( 2 2 z3) )  )
lst2 = ' ( Z1 Z2 Z3)
想用lst2 中的Z1 Z2 Z3 分别替换lst1中的 z1 z2 z3
请问有什么办法，想了很久都没想出来。。。
谢谢

Gu_xl

1. (mapcar '(lambda (a b) (mapcar '(lambda (x) (list (car x) (cadr x) b)) a)) lst1 lst2)

(mapcar '(lambda (a b) (mapcar '(lambda (x) (list (car x) (cadr x) b)) a)) lst1 lst2)

ll_j

1. (setq l1 '(((1 1 a1) (1 2 a1))
   
2.            ((2 1 a2))
   
3.            ((1 1 a3) (1 2 a3) (1 3 a3))
   
4.           )
   
5.       l2 '(b1 b2 b3)
   
6. )
   
7. (mapcar '(lambda (x y)
   
8.            (mapcar '(lambda (z) (subst y (caddr z) z)) x)
   
9.          )
   
10.         l1
    
11.         l2
    
12. )

(setq l1 '(((1 1 a1) (1 2 a1))<br />            ((2 1 a2))<br />            ((1 1 a3) (1 2 a3) (1 3 a3))<br />           )<br />       l2 '(b1 b2 b3)<br /> )<br /> (mapcar '(lambda (x y)<br />            (mapcar '(lambda (z) (subst y (caddr z) z)) x)<br />          )<br />         l1<br />         l2<br /> )

peraperson

Gu_xl 发表于 2014-6-30 10:13

真的很感谢

peraperson

ll_j 发表于 2014-6-30 10:21

非常谢谢你

guankuiwu

学习了！