next up previous contents index
suivant: Les dessins récursifs monter: Avec des chaines de précédent: Les mots   Table des matières   Index

Les palindromes

Étant donné une phrase, on veut écrire cette phrase en l'écrivant de droite à gauche. On écrira :
palindrome(s) de façon récursive :
il faut rajouter la première lettre de la phrase à la fin du palindrome de la phrase privée de sa première lettre.
On tape :
palindrome(ph):={
local s;
if (s==0) return ph;
s:=size(ph)-1;
return concat(palindrome(tail(ph)),ph[0]);
}
ou encore :
il faut rajouter la dernière lettre de la phrase devant le palindrome de la phrase privée de sa dernière lettre.
On tape :
saufdernier(m):={
return suppress(m,size(m)-1);
}
palindrome(ph):={
local s;
if (s==0) return ph;
s:=size(ph)-1;
return concat(ph[s],palindrome(saufdernier(ph)));
}


Documentation de giac écrite par Renée De Graeve