Bonsoir,

je cherche à définir une fonction qui va parcourire un "string" caractère par caractère et qui incrémente une variable de 1 si elle trouve le "char" 'a', sinon on soustrait 1,
voila ma tentative
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
let fct m p = for i=0 to (String.length m)  do match (String.get m i) with
  |'a' -> p=p+1
  |_-> p=p-1
done;;
fct "aaaac" 0;; j'ai donc essayé avec cette derniere ligne mais j'ai une exception:
# fct "aaaac" 0;;
Exception: Invalid_argument "index out of bounds".
merci à l'avance