[求助]谁有表比较的程序感谢传上来个！

jdhszh

谁有表比较的程序，最近要用自己不想写，记得前些时候在网上看过，感谢传上来个

jaminth

; [功能] 返回列表 lst1 排除 lst2 的结果
(defun list_sub (lst1 lst2)
  (vl-remove-if '(lambda (x) (member x lst2)) lst1)
)

jdhszh

可能我没说明白，若表1的元素比表2的元素少呢？就是有两个表不知谁元素多谁元素少，能比较两个表并返回他们各自不同的部分

wbsab

可以先比较一下两表的数目对不对排除掉一部分啊。

004

  (setq lst1 '(1 2 3 4))
  (setq lst2 '(3 4 5 6 7))
  (setq lst (append lst1 lst2))
  (setq lst11 (vl-remove-if '(lambda (x) (member x lst2)) lst))
  (setq lst22 (vl-remove-if '(lambda (x) (member x lst1)) lst))
;;;(1 2 3 4)
;;;(3 4 5 6 7)
;;;(1 2 3 4 3 4 5 6 7)
;;;(1 2) ---表1
;;;(5 6 7)---表2