| N° |
Fonction |
Catégorie |
Version |
| BIL 25 |
BiL_DelLast |
Gestion des Listes |
1.0 - Janvier 2007 |
Description
|
But
|
Retourne une liste après y avoir enlevé le dernier élèvement
|
|
Prototype
|
(BiL_DelLast Liste)
|
|
Argument
|
Liste - La liste à traiter - Liste -
|
|
Retours
|
La liste modifiée
|
|
Var. globales
|
Néant
|
|
Description
|
Retire le dernier élément d’une liste.
|
|
Notes
|
Identique à cdr mais enlève le dernier élément au lieu du premier.
|
|
Exemples
|
Commande: (setq List1 '(1 2 a b 5))
Commande: (BiL_DelLast List1)
retourne (1 2 A B)
Commande: (BiL_ DelLast List2)
retourne nil
List2 n’existe pas, donc nulle.
Commande: (setq aa "texte")
Commande: (BiL_ DelLast aa)
retourne nil
aa n’est pas une liste, et n’est pas nul.
|
La fonction
1- (defun BiL_DelLast (*List1)
2- (if (listp *List1)
3- (reverse
4- (cdr
5- (reverse *List1)
6- )
7- )
8- )
9- )
Ligne 2 : Si *List1 est une liste,
Ligne 5: - renverse *List1
Ligne 4: - enlève le 1er élément de *List1 ainsi retourné
Ligne 3: - retourne ce résultat une fois renversé
Listp : Retourne T si *List1 est une liste, nil dans les autres cas.
Reverse : Renvoie une liste avec ses éléments inversés.
Cdr : Renvoie une liste contenant tous les éléments de cette liste sauf le premier.
