Emacs lisp में दो सेट के बीच अंतर की गणना कैसे करें, सेट सूची होना चाहिए

elisp set (3)

अस्वीकरण: यह ईलिस में ऐसा करने का एक कारगर तरीका नहीं है। एक हैश फ़ंक्शन के साथ एक हैश-तालिका के माध्यम से एक प्रभावी तरीका है, लेकिन जब आप सूचियों के बारे में पूछा, तो यहां यह है:

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

दूसरा थोड़ा और अधिक कुशल है, क्योंकि यह तत्वों को निकाल देगा क्योंकि यह फलस्वरूप जांच करता है, लेकिन पहले कम और अधिक सीधे-आगे है।

यह भी ध्यान रखें कि सूचियों को सेट का अच्छा प्रतिनिधित्व नहीं है क्योंकि वे पुनरावृत्ति की अनुमति देते हैं। हैश नक्शे उस प्रयोजन के लिए बेहतर हैं