[原创]表的交集 并集 差集

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
    )
  )

caoyin

(defun lst-union (lst1 lst2)
  (append lst1 (vl-remove-if '(lambda (x) (member x lst1)) lst2))
)
(defun lst-subtract (lst1 lst2 / lst)
  (setq lst (append lst1 lst2))
  (vl-remove-if '(lambda (x) (member x (cdr (member x lst)))) lst)
)
(defun lst-intersect (lst1 lst2)
  (vl-remove-if-not '(lambda (x) (member x lst2)) lst1)
)

vlisp2012

学习了，做个记号！

yjtdkj

caoyin 发表于 2008-5-25 10:03
(defun lst-union (lst1 lst2)  (append lst1 (vl-remove-if '(lambda (x) (member x lst1)) lst2)))( ...

你这个差集不对，这个不叫差集，应该是两集合去掉交集后剩下的部分，也就是对称差Symmetric Difference

tryhi

yjtdkj 发表于 2021-7-20 16:56
你这个差集不对，这个不叫差集，应该是两集合去掉交集后剩下的部分，也就是对称差Symmetric Difference

好像叫交集取反？

paulpipi

好东西，收藏备用，谢谢！