En Lisp commun, comment puis-je insérer un élément dans une liste sur place?

Question

Deux questions:

1.I veulent une fonction pour insérer un élément dans une liste en place (dans toutes les positions, mais le début de la liste, voir la question 2 pour la raison) tel que:

CL> (defun insert-in-place (the-list after-position new-element) ....) => ... 
CL> (setf testy-list (list 'a 'b 'c 'd)) => ... 
CL> testy-list => ('A 'B 'C 'D) 
CL> (insert-in-place testy-list 1 'BOOOO) => ... 
CL> testy-list => ('A 'B 'BOOOO 'C 'D) 

2. Je pense que l'insertion d'un élément dans le début de la liste in-place est impossible à travers une fonction parce que les arguments sont passés par valeur, donc puisque la première cellule de la liste est passée, elle est passée en valeur et c'est une copie et ainsi changer sa voiture change seulement une voiture de copie, pas l'original, bien que les cellules contre suivantes soient partagées et le changement dans la place soit possible. Ai-je raison?

Answer 1

1) voici:

(defun insert-after (lst index newelt) 
    (push newelt (cdr (nthcdr index lst))) 
    lst) 
(insert-after '(a c d) 0 'b) => (A B C D) 

2) modification destructive des cellules cons:

(setf testy-list '(a bar)) 
(defun modify (list) 
    (setf (first list) 'foo)) 
(modify testy-list) 
testy-list => (FOO BAR) 

Ceci définit la voiture de la première cellule de contre à « foo.

Answer 2

Je l'ai fait pour un de mes projets, gère l'index 0 et si l'index est supérieur à la longueur de la liste, le nouvel item est ajouté à la fin de la liste. Sachez qu'il crée une nouvelle liste de sorte qu'elle ne s'applique pas à votre cas. Je l'inclue en espérant que cela serait utile pour quelqu'un.

(defun list-insert-at (lst index new-value) 
    (let ((retval nil)) 
    (loop for i from 0 to (- (length lst) 1) do 
     (when (= i index) 
     (push new-value retval)) 
     (push (nth i lst) retval)) 
    (when (>= index (length lst)) 
     (push new-value retval)) 
    (nreverse retval))) 

CL-USER> test 
(1 2 3 4 5) 
CL-USER> (list-insert-at test 5 'a) 
(1 2 3 4 5 A) 
CL-USER> (list-insert-at test 0 'a) 
(A 1 2 3 4 5)