Un bel exemple d'utilisation des listes (Merci Olivier SC)

Je vous laisse apprécier ce magnifique programme:

pour inversem :m
si vide? :m [retourne "]  
retourne mot dernier :m inversem sd :m
fin

pour palindrome :m
SI EGAL? :M INVERSEM :M [RETOURNE "VRAI] [RETOURNE "FAUX] 
fin

pour palin :n
SI PALINDROME :N [ECRIS :N STOP]
ECRIS PH PH PH PH :N "PLUS INVERSEM :N "EGAL SOMME :N INVERSEM :N
PALIN :N + INVERSEM :N 
fin

palin 78
78 PLUS 87 EGAL 165
165 PLUS 561 EGAL 726
726 PLUS 627 EGAL 1353
1353 PLUS 3531 EGAL 4884
4884


Loïc 2005-08-16