如何计算emacs lisp中两个集合之间的差异，集合应该是列表

Question

如何计算Emacs Lisp中两组之间的差异？集合应该是列表。该程序应该非常简单且简短，否则我将无法理解。我是新手。

Thx

Answer 1

Common Lisp扩展中有一个set-difference函数：

elisp> (require 'cl)
cl
elisp> (set-difference '(1 2 3) '(2 3 4))
(1)

Answer 2

免责声明：这不是在eLisp中执行此操作的有效方法。一种有效的方法是通过带有哈希函数的哈希表，但是由于您询问了列表，因此它是：

(defun custom-set-difference (a b)
  (remove-if
     #'(lambda (x) (and (member x a) (member x b)))
     (append a b)))

(custom-set-difference '(1 2 3 4 5) '(2 4 6))

(1 3 5 6)

(defun another-set-difference (a b)
  (if (null a) b
    (let (removed)
      (labels ((find-and-remove
                (c)
                (cond
                 ((null c) nil)
                 ((equal (car c) (car a))
                  (setq removed t) (cdr c))
                 (t (cons (car c) (find-and-remove (cdr c)))))))
        (setf b (find-and-remove b))
        (if removed
            (another-set-difference (cdr a) b)
          (cons (car a) (another-set-difference (cdr a) b)))))))

(another-set-difference '(1 2 3 4 5) '(2 4 6))

(1 3 5 6)

第二个效率稍高，因为它会在进行后续检查时删除元素，但第一个更短且更直接。

还要注意，列表不是集合的良好表示，因为列表自然会允许重复。为此，哈希映射更好。

Answer 3

[当我编写具有大量列表数据转换的Elisp代码时，我使用dash库，因为它具有处理列表的大量功能。设置差异可以通过dash：

完成

-difference

Answer 4

这里是一个简单简短的定义，应该易于理解。它与Emacs的Common Lisp库中的-difference函数基本相同，但未对TEST参数进行任何处理。

(-difference '(1 2 3 4) '(3 4 5 6)) ;; => '(1 2)

Answer 5

GNU Emacs Lisp参考手册，set-difference建议使用cl-lib的cl-set-difference LIST1 LIST2

(defun set-diff (list1 list2 &optional key)
  "Combine LIST1 and LIST2 using a set-difference operation.
Optional arg KEY is a function used to extract the part of each list
item to compare.

The result list contains all items that appear in LIST1 but not LIST2.
This is non-destructive; it makes a copy of the data if necessary, to
avoid corrupting the original LIST1 and LIST2."
  (if (or (null list1)  (null list2))
      list1
    (let ((keyed-list2  (and key  (mapcar key list2)))
          (result       ()))
      (while list1
        (unless (if key
                    (member (funcall key (car list1)) keyed-list2)
                  (member (car list1) list2))
          (setq result  (cons (car list1) result)))
        (setq list1  (cdr list1)))
      result)))

Sets and Lists