क्या दो सूचियों की सामग्री की तुलना करने के लिए एक सामान्य LISP फ़ंक्शन है?

Question

विशेष रूप से, मैं बस यह सुनिश्चित करना चाहता हूं कि दो सूचियों में एक ही तत्व हैं,

Answer 1

स्टील के मुताबिक "सेट-फर्क सूची 1 के तत्वों की एक सूची देता है जो सूची 2 में प्रकट नहीं होते हैं। यह ऑपरेशन विनाशकारी नहीं है।"

तो अगर सेट अंतर खाली है और लंबाई एक ही रहे हैं ...

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

Answer 2

यदि ऑर्डर महत्वपूर्ण नहीं है, तो आप बराबर का उपयोग कर सकते हैं। उदाहरण के लिए,

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

सत्य है। इस प्रकार ऐसा करने का एक तरीका सूची (क्रमबद्ध) करना होगा और फिर बराबर का उपयोग करना होगा। ध्यान दें कि सॉर्ट विनाशकारी है इसलिए यदि आदेश महत्वपूर्ण है, तो आप इसे पहले कॉपी करना चाहेंगे।

Answer 3

यदि दोहराने वाले आइटम महत्वपूर्ण नहीं हैं तो 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

क्रमबद्ध दोनों सूचियों, तो तुलना:

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

Answer 6

हैं ऑर्डर महत्वपूर्ण नहीं है आप "बराबर-सेट" का उपयोग कर सकते हैं:

(बराबर सेट (1 2) (1 2)) -> टी

(बराबर सेट (1 2) (2 1)) -> टी

(बराबर सेट (1 2 5) (1 2)) -> शून्य

(बराबर सेट (1 2) (1 5 2)) -> शून्य