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