LISP'de listenin sonuna ekleme

Question

Olası Çoğalt: lisp birçok öğreticiler izliyor ve cevapları için google yüksek ve düşük arama yaptıktan sonra
what is the ‘cons’ to add an item to the end of the list?

, hala çözemiyorum LISP'de bir listenin sonuna nasıl eklenir.

İşlevimin '(b c d) listesinin sonuna 'a eklemek istiyorum, ancak yalnızca nasıl ekleyeceğimi biliyorum. Birisi listenin sonunda 'a eklemek için doğru şekilde bana yardımcı olabilir miyim? İşte benim kodum. Şimdiden teşekkürler.

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


(AddRt 'a '(b c d)) 

Answer 1

Yinelemeli bir işlev kullanabilirsiniz. Ayrıca, içinde prens kullanmaktan kaçınmalısınız. değeri sonunda ilave edilmesi dışında

İzleyen fonksiyon, endcons, cons tam olarak aynı şeyi yapar.

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

(endcons 'a '(b c d)) 

Tabii ki, aynı zamanda eklemek kullanabilirsiniz: what is the 'cons' to add an item to the end of the list?

Answer 2

bir yolu listesini tersine çevirmek için geçerli:

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

de bu ilgili soruya bakın. Öğeyi, tersine çevrilmiş listenin başına ekleyin. Ve sonunda tüm listeyi tersine çevir.

Şema kodu:

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

Ama bu sık sık gereken bir işlem olup olmadığını, o zaman (tek bağlantılı) listelerin dışında bir veri yapısını bulmak öneririm

.

Answer 3

ya last için push, veya kullanım 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) 

not bu destructiveoperators, yani bunlara bağlanmasını değerini a arasında, sadece olan nesne ve değişiklikler olduğu .

Bu

neden ve ödeyecekleri yapmanız gerekir alıntılanan listelerde asla kullanım nconc, (nconc '(1 2 3) '(4 5 6)) gibi.