Discussion :

[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

[Trap D]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il te donne pratiquement la solution

[LLB]

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.

[Zavonen]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Devrait faire l'affaire

[ouadie.boussaid]

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
>L
(4 5)
>( reverse (cons 6 (reverse L)))
(4 5 6)

[handetaker]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

[ceciestunpseudo]

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.

[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).

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.

[ceciestunpseudo]

"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.