Compter occurences en OCAML

[Raven]

Bonsoir , pour un exercice on doit compter le nombre d'occurences d'une chaine de caractére par rapport à un caractére et qui retourne ce nombre
j'avais pensé à un compteur du coup..
mais je ne sais pas comment faire pour retourner ce nombre
j'aurais commencé par:

let compter_occurences c s =
let cpt= ref 0 in
if s=c then
cpt := cpt+1
else
cpt c
!cpt ;;
mais je ne sais pas si c'est bon.. ?

[Iroh]

Salut, tu peux utiliser fold_left:

Code: Tout sélectionner

let compter_occurence char chaine =
  let increment entier char1 =
    if char1 == char then entier + 1
    else entier in
  fold_left increment 0 chaine
;;

L'implémentation de fold_left: http://www.developpez.net/forums/d355725/autres-langages/langages-fonctionnels/caml/ocaml-explication-list-fold-left-right/#post2170830

[Raven]

merci mais le probléme est qu'on n'a jamais utiliser ces fonctions ..
on a utilisé que les compteurs comme j'ai dit ,
donc d'aprés ton code ce serait
let compter_occurences c s =
let cpt = ref 0 in
if s.[0] == c then
cpt:= cpt +1
else
!cpt
;;?