Ortak Lisp listesinde yer değiştirme öğeleri

Question

İndeksleri verilen ve değiştirilen listeyi döndüren listedeki iki öğeyi değiştirecek bir Ortak Lisp işlevi var mı?

Elbette

(rotatef (nth i lst) (nth j lst)) 

, liste indeksleme (listedeki) Ey (boyutu maliyet) pahalı olabilir, bu yüzden herhangi bir düzenlilik bunu yaparsan, yerine isterdim:

Answer 1

Sen rotatef kullanabilirsiniz

(rotatef (aref arr i) (aref arr j)) 

Answer 2

Ben elt için kullanmak daha sonra takas ve istediğiniz ilk elemanını içeren eksileri hücrenin cdr almak için nthcdr kullanarak listenin içine indeksleme iki kez önleyeceğini

gr: bir dizi kullanımı ve kalan öğeyi alt listeden çıkar. Bu, sadece bir kez listenin başından başlayarak dizine girmeniz gerektiği anlamına gelir.

(let ((list-tail (nthcdr i list))) 
    (rotatef (car list-tail) 
      (elt list-tail (- j i))) 
    list) 

En azından bakış açımdan, bu bir işlevi haklı çıkarmak için yeterince sıkıcı.