मुझे दो सूचियों में शामिल होने, उन्हें क्रमबद्ध करने और डुप्लीकेट हटाने की आवश्यकता है। क्या ऐसा करने के लिए इससे अच्छा तरीका है?

Question

मेरे पास दो अपरिवर्तित सूचियां हैं और मुझे एक और सूची तैयार करने की आवश्यकता है जो सॉर्ट किया गया है और जहां सभी तत्व अद्वितीय हैं।

तत्व दोनों सूचियों में कई बार हो सकते हैं और वे मूल रूप से अपरिवर्तित हैं।

मेरे समारोह इस तरह दिखता है:

(defun merge-lists (list-a list-b sort-fn) 
    "Merges two lists of (x, y) coordinates sorting them and removing dupes" 
    (let ((prev nil)) 
     (remove-if 
      (lambda (point) 
       (let ((ret-val (equal point prev))) 
        (setf prev point) 
        ret-val)) 
      (sort 
       (merge 'list list-a list-b sort-fn) ;' 
       sort-fn)))) 

वहाँ एक ही प्राप्त करने के लिए एक बेहतर तरीका है?

नमूना कॉल:

[CL]> (merge-lists '(9 8 4 8 9 7 2) '(1 7 3 9 2 6) #'>) 
    ==> (9 8 7 6 4 3 2 1) 

Answer 1

हमारे पड़ोस के अनुकूल लिस्प गुरु ने remove-duplicates function को इंगित किया।

उन्होंने यह भी निम्नलिखित स्निपेट उपलब्ध:

(defun merge-lists (list-a list-b sort-fn test-fn) 
    (sort (remove-duplicates (append list-a list-b) :test test-fn) sort-fn)) 

Answer 2

मुझे लगता है कि मैं पहली बार दो सूचियों अलग से सॉर्ट और फिर उन्हें एक समारोह है कि यह भी डुप्लिकेट से अधिक छोड़ देता है के साथ विलय होगा। यह थोड़ा तेज़ होना चाहिए क्योंकि इसे दोनों सूचियों के एक कम ट्रैवर्सल की आवश्यकता होती है।

पीएस .: मुझे संदेह है कि इसे बहुत तेज किया जा सकता है क्योंकि आपको मूल रूप से कम से कम एक प्रकार की आवश्यकता होती है और एक विलय होता है। शायद आप दोनों एक समारोह में गठबंधन कर सकते हैं, लेकिन अगर मैं (बड़ा) अंतर नहीं करता तो मुझे आश्चर्य नहीं होगा।

Answer 3

लगता है जैसे आपको सेट का उपयोग करने की आवश्यकता है।

Answer 4

तो इससे पहले कि आप उन्हें मर्ज सूचियों हल कर रहे हैं, वे विलय कर दिया जा सकता है, नकली-हटा दिया और एक ही समय में हल कर। अगर वे सॉर्ट और डुप्लिकेट-फ्री हैं, तो मर्ज/सॉर्ट/डुप्लिकेट-फ़ंक्शन फ़ंक्शन वास्तव में तुच्छ हो जाता है।

वास्तव में, यह आपके सम्मिलित फ़ंक्शन को बदलना बेहतर हो सकता है ताकि यह एक क्रमबद्ध प्रविष्टि निष्पादित करता है जो डुप्लीकेट के लिए जांच करता है। फिर आप हमेशा सूचियों को क्रमबद्ध करते हैं जो डुप्लिकेट से मुक्त होते हैं, और उन्हें विलय करना एक मामूली मामला है।

फिर, आप बाद में डुप्लिकेट को सॉर्ट करने/हटाने की लागत पर एक तेज सम्मिलित कार्य करना पसंद कर सकते हैं।

Answer 5

अगर हटाए गए डुप्लिकेट से पहले सॉर्ट लागू किया गया था तो हटाए गए डुप्लिकेट फ़ंक्शन बेहतर काम नहीं करेंगे?

Answer 6

अंटी के रूप में बताया, तो आप शायद, हटाने-डुप्लिकेट और SORT लाभ उठाने के लिए हालांकि मैं शायद परीक्षण समारोह के लिए एक कीवर्ड (या वैकल्पिक तर्क) का उपयोग करेंगे चाहते हैं: (defun मर्ज-सूची (सूची -1 सूची- 2 तरह-fn & कुंजी (परीक्षण # 'eql)) ...) या (defun मर्ज-सूची (सूची -1 सूची -2 तरह-fn & वैकल्पिक (परीक्षण #' eql) ...)

इस तरह, आपको टेस्ट फ़ंक्शन निर्दिष्ट नहीं करना होगा ("इन्हें डुप्लिकेट माना जाता है" के परीक्षण के लिए रिमूव-डुप्लिकेट्स द्वारा उपयोग किया जाता है), जब तक कि ईक्यूएल पर्याप्त न हो।