求表比较函数

376394482

1. (setq lst1 '(0 1 2 4 5))
   
2. (setq lst2 '((0 0) (2 2) (3 3) (4 4) (5 5) (6 6)))
   

(setq lst1 '(0 1 2 4 5))<br /> (setq lst2 '((0 0) (2 2) (3 3) (4 4) (5 5) (6 6)))<br />

期望功能：
比较lst1和lst2，
情况1,提示lst2中缺少1处的数据，程序不再继续进行。
情况2,删除lst2中多出的（6 6）

谢谢各位高手

菜卷鱼

给你举个例子，你自己去改
(repeat (length lst2)
(setq a (car lst2))
(setq lst2 (cdr lst2))
(if (member (car a) lst1) (setq lst2 (append lst2 (list a))))
)