集合并，交，差，？

llsheng_73

1. (defun lst+(l1 l2)
   
2.   (append l1(vl-remove-if'(lambda(x)(member x l1))l2)))
   
3. (defun lst-(l1 l2)
   
4.   (vl-remove-if'(lambda(x)(member x l2))l1))
   
5. (defun lst~(l1 l2)
   
6.   (append (vl-remove-if'(lambda(x)(member x l2))l1)(vl-remove-if'(lambda(x)(member x l1))l2)))
   
7. (defun lst&(l1 l2)
   
8.   (vl-remove-if-not'(lambda(x)(member x l2))l1))

(defun lst+(l1 l2)<br />   (append l1(vl-remove-if'(lambda(x)(member x l1))l2)))<br /> (defun lst-(l1 l2)<br />   (vl-remove-if'(lambda(x)(member x l2))l1))<br /> (defun lst~(l1 l2)<br />   (append (vl-remove-if'(lambda(x)(member x l2))l1)(vl-remove-if'(lambda(x)(member x l1))l2)))<br /> (defun lst&(l1 l2)<br />   (vl-remove-if-not'(lambda(x)(member x l2))l1))

(lst+'(1 2 3 4)'(3 4 5 6))==>(1 2 3 4 5 6)
(lst-'(1 2 3 4)'(3 4 5 6))==>(1 2)
(lst~'(1 2 3 4)'(3 4 5 6))==>(1 2 5 6)
(lst&'(1 2 3 4)'(3 4 5 6))==>(3 4)

如果不是两个表而是多个应该怎么改造以上函数或者有无必要进行这样的改造？

vlisp2012

多谢分享！！！！

自贡黄明儒

是表，不是集合。