Discussion :

[ktayeb94]

Bonjour a tous,
je viens de commencer la programmation fonctionnelle avec le langage caml .
mon problème est le suivant :
Je doit récupérer le nombres d’occurrences de chaque lettre a partir d'un fichier texte.
voila mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
let x = "text.txt";;
let canal_entree = open_in x;;
let liste =[];;
 
let rec  occurrences a list = match list with
  |[]              -> (1,a)::[]
  |(nb,lettre)::ls ->
     if(lettre = a) then (nb+1,lettre)::ls 
     else (nb,lettre)::(occurrences a ls)
;; 
 
let parcourt inChannel list=
  while(true) do 
    let a = input_char canal_entree in
      occurrences a list           
  done
;;
 
parcourt canal_entree liste;;

Ma fonction parcours me renvoie le type <unit> alors que normalement elle me revoie le type <(int * char) list> qui est le type de la fonction occurrences

Merci d'avance pour l'aide et bon courage a tous .

[cvanaret]

occurrences est appelée dans un bloc while (de type unit), par conséquent :
- à chaque nouveau caractère, tu repars d'une liste vide et pas de la liste précédemment construite ;
- la liste finale ne peut pas sortir du bloc while et être renvoyée par la fonction parcours.

Tu peux remplacer le while par une fonction récursive, et transmettre la liste construite de caractère en caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
let parcours canal_entree =
  let rec loop liste =
    try
      let char = input_char canal_entree in
      let liste = occurrences char liste in
      loop liste
    with End_of_file -> liste
  in loop []
;;
 
parcours canal_entree;;
- : (int * char) list =
[(2, 'p'); (9, '\n'); (2, 'a'); (2, 't'); (1, 'r'); (1, 'o'); (1, 'u')]