Bonjour,
j'ai un petit problème avec la fonction suivante qui enlève les chaînes vides dune liste, elle fonctionne mais quand le premier élément est une chaîne vide elle renvoie la bonne liste mais ce premier élément reste (la liste n'est aps modifiée) :
ceci sera certainement plus clair :
(setq a '("" "b" "c" ""))
(arrange a) => ("b" "c")
a => ("" "b" "c")
Et la fonction arrange :
Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 (defun arrange (liste) (setq L (length (car liste))) (cond ((atom liste) liste) ((> L 0) (rplacd liste (arrange (cdr liste)))) (t (arrange (cdr liste))) ) )
Partager