[原创]：表的交集,并集,差集操作

zxmmelly

;;--求两个表的交集---------------------------------------------------
  (defun lst-union (#@lst1 #@lst2 / $lst2 #lst2)
    (setq $lst2        (append #@lst1 #@lst2)
          #lst2        (lst-intersect #@lst1 #@lst2)
    )
    (if        #lst2
      (setq $lst2
             (append (foreach x #lst2 (setq $lst2 (vl-remove x $lst2)))
                     #lst2
             )
      )
      $lst2
    )
  )
;;--求两个表的差集---------------------------------------------------
  (defun lst-subtract (#@lst1 #@lst2 /)
    (if        (setq #lst2 (lst-intersect #@lst1 #@lst2))
      (foreach x #lst2 (setq #@lst1 (vl-remove x #@lst1)))
      #@lst1
    )
  )
;;--求两个表的交集---------------------------------------------------
  (defun lst-intersect (#@lst1 #@lst2 / nn @z @lst2)
    (setq nn 0)
    (while (setq @z (nth nn #@lst1))
      (if (member @z #@lst2)
        (setq @lst2 (cons @z @lst2))
      )
      (setq nn (1+ nn))
    )
    (if        @lst2
      (reverse @lst2)
      nil
    )
  )

zml84

幸福，就是天亮想上班，天黑想回家。

flowerson

(setq s1(list "01 02 04 12" "01 02 04 13"))
(setq s3 (list "02 03 04 05 " "07 08 09 10 "))
(lst-subtract s1 s3)
结果是 ("01 02 04 12" "01 02 04 13") 不对哦！

zxmmelly

lst-subtract 从表#@lst1 中减去#@lst2 和#@lst1 #@lst1 的交叉部分，成功则返回新生成的表，否则返回表#@lst1

你的s1和s2没有交集，自然返回s1啦

yoyoho

不一样的思路
下载研究研究
感谢楼主分享

flowerson

没有交集应该是 nil才对啊！

oyxx_1023

YES.没有交集应该是NIL.肯定不是S1.

mico_ye

不错

yoyoho

;;--求两个表的差集---------------------------------------------------         
;;(setq s1(list "01 02 04 12" "01 02 04 13"))                                 
;;(setq s2(list "01 02 04 12" "01 02 04 14"))                                 
;;(setq s3 (list "02 03 04 05 " "07 08 09 10 "))                              
;;执行 (lst-subtract s1 s3)                                                   
;;回应 nil                                                                    
;;执行 (lst-subtract s1 s2)                                                   
;;回应 ("01 02 04 13")                                                        
(defun lst-subtract (#@lst1 #@lst2 /)                                         
  (if (setq #lst2 (lst-intersect #@lst1 #@lst2))                              
      (foreach x #lst2 (setq #@lst1 (vl-remove x #@lst1)))                    
      ;;;#@lst1                                                               
      nil                                                                     
  )                                                                           
)