Существует ли общая функция LISP для сравнения содержимого двух списков?

Question

В частности, я просто хочу убедиться, что два списка имеют одинаковые элементы, игнорируя порядок

Answer 1

Если порядок не важен, вы можете использовать равные. Например,

(equal (list 1 2) (list 1 2))

верно. Таким образом, один из способов сделать это состоит в том, чтобы (отсортировать) список, а затем использовать равные. Обратите внимание, что сортировка деструктивна, поэтому, если порядок имеет значение, вы можете сначала скопировать его.

Answer 2

(defun same-bag-p (bag1 bag2 &key (test #'eql))
  (let ((table (make-hash-table :test test)))
    (loop for key in bag1 do (incf (gethash key table 0)))
    (loop for key in bag2 do (decf (gethash key table 0)))
    (loop for val being each hash-value of table always (= val 0))))

Answer 3

Если повторяющиеся элементы не важны, см. Также SET-EXCLUSIVE-OR.

Answer 4

Если порядок не важен, вы можете использовать «равный набор»:

(равный набор (1 2) (1 2)) -> T

(равный набор(1 2) (2 1)) -> T

(равные множества (1 2 5) (1 2)) -> NIL

(равные множества (1 2) (1 5 2)) -> NIL

Answer 5

По словам Стила "set-diff возвращает список элементов list1, которые не появляются в list2. Эта операция не является разрушительной."

Так что, если разность наборов пуста, а длины одинаковы ...

http://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node152.html#SECTION001950000000000000000

Answer 6

(defun list= (l1 l2 &key (test #'eql))
  (loop for i in l1
     for j in l2
     always (funcall test i j)))


(list= '(1 2 "a") '(1 2 "a") :test #'equal) ;; => T
(list= '(1 2 "a") '(1 2 "a") :test #'eql) ;; => NIL

Answer 7

Сортируйте оба списка, затем сравните:

(equal (sort l1 #'<) (sort l2 #'<))