Comment ajouter un élément en fin de liste ?

Bonjour,

Je recherche une fonction similaire à cons, mais au lieu d'ajouter un élément en début de liste, cette fonction ajouterai en fin de liste.

Par exemple avec la liste ((B T) (C T)). Je veux ajouter cet élément (A T) pour obtenir cette liste ((B T) (C T) (A T))

Merci de votre réponse

Je te conseille d'étudier ce petit programme (ecrit en Scheme)

Code:

---

1 2 3

(define (parcours-liste l) (if (null? l) '() (cons (car l) (parcours-liste (cdr l)))))

---

Il te donne pratiquement la solution

Tu souhaites utiliser une fonction de la bibliothèque, peut-être ?
Je n'utilise pas Lisp, mais il me semble que append corresponde à tes besoins.

Code:

---

1 2 3

(defun append (x L) (if (null L) (list x) (cons (car L) (append x (cdr L)))))

---

Devrait faire l'affaire

Citation:

---

Envoyé par Titi41

Bonjour,

Je recherche une fonction similaire à cons, mais au lieu d'ajouter un élément en début de liste, cette fonction ajouterai en fin de liste.

Par exemple avec la liste ((B T) (C T)). Je veux ajouter cet élément (A T) pour obtenir cette liste ((B T) (C T) (A T))

Merci de votre réponse

---

>append L '(6)
ou :
>append L (list '6)
ou bien :mrgreen:
>L
(4 5)
>( reverse (cons 6 (reverse L)))
(4 5 6)

Ben c'est simple!!!! ce programme fais ce que tu désires salut!!! :ccool:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

(defun cons_fonction(LISTE element) (if (listp element) (setf z (cons element () )) (setf z (cons element () )) ) (if (null LISTE) nil (do ((i (length LISTE) (- i 1))) ((equal i 0) z) (setf z (cons (nth (- i 1) LISTE) z)) ) ) )

---

si LISTE=(1 2 3 4 ) et element = a le résultat sera : (1 2 3 4 a) si LISTE=((A B) (C D ) e (E F) ) et element= (D G) ou element= c resultat : (((A B) (C D ) e (E F) ) (D G)) ou ((A B) (C D ) e (E F) c )

Citation:

---

Envoyé par handetaker

Ben c'est simple!!!! [...]

---

Ah non désolé... ce que tu écris est fort compliqué. Mais peut-être était-ce volontaire ? Les autres réponses exhibent des réponses bien plus simples.

"reverse" est une fonction bien plus simple à utiliser ok ;) . Généralement quand on demande de faire ce type d'exo on interdit d'utliser des fonctions comme tels !!! justement d'ou le nom de "exercice" si non y'a pas "d'exercices! :) . Je les fais sans utiliser cette fonction !!!! en tout cas la fonction "reverse" fonctionne ainsi!!! l'appréciation est à TITI ( l'auteur de l'exercice qui est sans réponse depuis un moment).

Citation:

---

Envoyé par ceciestunpseudo

Ah non désolé... ce que tu écris est fort compliqué. Mais peut-être était-ce volontaire ? Les autres réponses exhibent des réponses bien plus simples.

---

Citation:

---

Envoyé par handetaker

"reverse" est une fonction bien plus simple à utiliser ok ;) . Généralement quand on demande de faire ce type d'exo on interdit d'utliser des fonctions comme tels !!! justement d'ou le nom de "exercice" si non y'a pas "d'exercices! :) . Je les fais sans utiliser cette fonction !!!! en tout cas la fonction "reverse" fonctionne ainsi!!! l'appréciation est à TITI ( l'auteur de l'exercice qui est sans réponse depuis un moment).

---

Tu utilises un itérateur do et deux affections setf. Si c'est un exercice (ce que je suspecte aussi) je doute que ce soit prévu. Il y a une solution purement fonctionnelle sans itération ni affectation. Et elle est plus courte et simple que la tienne. Tu fais du LISP en pensant C/C++/Java (je te laisse choisir). C'est une mauvaise façon de faire.

TITI ne répondra probablement pas. Sa question date de 3 ans ou presque.