Có chức năng LISP phổ biến nào để so sánh nội dung của hai danh sách không?

Question

Cụ thể, tôi chỉ muốn đảm bảo rằng hai danh sách có cùng các yếu tố, bỏ qua thứ tự

Answer 1

Theo Steele "sự khác biệt thiết lập trả về danh sách các phần tử của danh sách1 không xuất hiện trong danh sách2. Thao tác này không phá hoại."

Vì vậy, nếu thiết khác biệt là trống rỗng và độ dài đều giống nhau ...

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

Answer 2

Nếu đơn đặt hàng không quan trọng, bạn có thể sử dụng như nhau. Ví dụ:

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

là đúng. Vì vậy, một cách để làm điều đó sẽ là (sắp xếp) danh sách và sau đó sử dụng bình đẳng. Lưu ý rằng sắp xếp là phá hoại vì vậy nếu thứ tự quan trọng, bạn có thể muốn sao chép nó trước.

Answer 3

Nếu các mục lặp lại không quan trọng, hãy xem SET-EXCLUSIVE-OR.

Answer 4

(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 5

Sắp xếp cả hai danh sách, sau đó so sánh:

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

Answer 6

Nếu đơn đặt hàng không quan trọng bạn có thể sử dụng "bộ bằng nhau":

(tương đương-bộ (1 2) (1 2)) -> T

(tương đương-bộ (1 2) (2 1)) -> T

(tương đương-bộ (1 2 5) (1 2)) -> NIL

(bộ ngang (1 2) (1 5 2)) -> NIL