लिस्प में सूची के अंत में जोड़ा जा रहा है

Question

संभव डुप्लिकेट:
what is the ‘cons’ to add an item to the end of the list?

तुतलाना पर कई ट्यूटोरियल देखकर और जवाब के लिए गूगल पर उच्च और निम्न खोज के बाद, मैं अभी भी समझ नहीं LISP में किसी सूची के अंत में कैसे जोड़ें।

मैं चाहता हूं कि मेरा कार्य 'a सूची '(b c d) के अंत में जोड़ें, लेकिन मुझे केवल यह पता है कि इसे आगे कैसे जोड़ना है। सूची के अंत में 'a जोड़ने के लिए कोई मुझे सही तरीके से विपक्ष का उपयोग करने में मदद कर सकता है? मेरा कोड यहाँ है। अग्रिम में धन्यवाद।

(defun AddRt (a list) 
    (cond 
    ((null list) 
     0) 
    (t 
     (princ (cons a (cons (car list) (cdr list)))) 
    ))) 


(AddRt 'a '(b c d)) 

Answer 1

आप एक पुनरावर्ती कार्य का उपयोग कर सकते हैं। इसके अलावा, आपको अंदर प्रिंस का उपयोग करने से बचना चाहिए।

निम्नलिखित समारोह, endcons, सिवाय इसके मूल्य अंत में जोड़ा जाता है, विपक्ष के रूप में बिल्कुल वही बात करता है।

(defun endcons (a v) 
    (if (null v) (cons a nil) (cons (car v) (endcons a (cdr v))))) 

(endcons 'a '(b c d)) 

बेशक, आप भी संलग्न इस्तेमाल कर सकते हैं:

(append '(b c d) '(a)) 

भी देखें इस संबंधित सवाल: what is the 'cons' to add an item to the end of the list?

Answer 2

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

योजना कोड:

(define (add-to-tail l x) 
    (reverse (cons x (reverse l))) 

लेकिन अगर यह एक ऑपरेशन आप अक्सर जरूरत है, तो मैं आप से (एकल जुड़े) सूचियों अन्य डेटा संरचना को खोजने के सुझाव देना चाहेंगे।

Answer 3

या तो last करने के लिए push, या का उपयोग nconc:

> (defparameter a (list 1 2 3)) 
A 
> (push 4 (cdr (last a))) 
(4) 
> a 
(1 2 3 4) 
> (nconc a (list 5)) 
(1 2 3 4 5) 
> a 
(1 2 3 4 5) 

टिप्पणी इन destructiveoperators, यानी, वे वस्तु जो मूल्य a की ही नहीं, a की बाध्यकारी है संशोधित हैं कि ।

यही कारण है कि, BTW, आप चाहिए कभी नहीं उपयोग nconc उद्धरण सूचियों पर, (nconc '(1 2 3) '(4 5 6)) की तरह।