Comptage des caractères d’un texte avec Xcas

M:=matrix(31,3,0);
Taille:=size(Texte);

list_A:=[« a », »A », »à », »á », »â », »ä », »å », »ã »];
list_B:=[« b », »B »];
list_C:=[« c », »C », »ç »];
list_D:=[« d », »D »];
list_E:=[« e », »E », »è », »é », »ê »];
list_F:=[« f », »F »];
list_G:=[« g », »G »];
list_H:=[« h », »H »];
list_I:=[« i », »I », »í », »ì »];
list_J:=[« j », »J »];
list_K:=[« k », »K »];
list_L:=[« l », »L »];
list_M:=[« m », »M »];
list_N:=[« n », »N »];
list_O:=[« o », »O », »ö », »õ », »ó », »ò »];
list_P:=[« p », »P »];
list_Q:=[« q », »Q »];
list_R:=[« r », »R »];
list_S:=[« s », »S »];
list_T:=[« t », »T »];
list_U:=[« u », »U », »ù », »ú », »ü »];
list_V:=[« v », »V »];
list_W:=[« w », »W »];
list_X:=[« x », »X »];
list_Y:=[« y », »Y »];
list_Z:=[« z », »Z »];
list_espace:=[ » « ];
list_ponctuation:=[« . », », », »: », »; », »! », »? »];
liste_retour_ligne:=( »
« );

listes:=[list_A,list_B,list_C,list_D,list_E,list_F,list_G,list_H,list_I,list_J,
list_K,list_L,list_M,list_N,list_O,list_P,list_Q,list_R,list_S,list_T,
list_U,list_V,list_W,list_X,list_Y,list_Z,list_espace,list_ponctuation,liste_retour_ligne];

M[0,0]:= »a »;
M[1,0]:= »b »;
M[2,0]:= »c »;
M[3,0]:= »d »;
M[4,0]:= »e »;
M[5,0]:= »f »;
M[6,0]:= »g »;
M[7,0]:= »h »;
M[8,0]:= »i »;
M[9,0]:= »j »;
M[10,0]:= »k »;
M[11,0]:= »l »;
M[12,0]:= »m »;
M[13,0]:= »n »;
M[14,0]:= »o »;
M[15,0]:= »p »;
M[16,0]:= »q »;
M[17,0]:= »r »;
M[18,0]:= »s »;
M[19,0]:= »t »;
M[20,0]:= »u »;
M[21,0]:= »v »;
M[22,0]:= »w »;
M[23,0]:= »x »;
M[24,0]:= »y »;
M[25,0]:= »z »;
M[26,0]:= »espace »;
M[27,0]:= »ponctuation »;
M[28,0]:= »Retour a la ligne »;
M[29,0]:= »autres »;
M[30,0]:= »Total »;

S:=0;
for (j:=1;j<=29;j:=j+1)
M[j-1,1]:=compte_car(Texte,listes[j-1]);
M[j-1,2]:=format(evalf(M[j-1,1]/Taille*100), »f2″);
S:=S+M[j-1,1];

M[29,1]:=Taille-S;
M[29,2]:=format(evalf(M[29,1]/Taille*100), »f2″);
M[30,1]:=Taille;
M[30,2]:=100;