Discussion :

[LaeticiaM]

Bonjour à tous,

J'ai un projet scolaire à faire qui me demande de faire une compression de fichier.
Mais avant tout je dois pouvoir ouvrir le fichier, lire chaque mot du fichier mais par lettre et ensuite compter les occurrences de chaque lettre afin de pouvoir faire un arbre de huffmann.
par exemple si dans mon fichier j'ai : "Je suis une étudiante " .
Je dois avoir J = 1, é = 1, d = 1, a = 1, s = 2, i = 2, n = 2, t = 2, e = 3, u = 3, " " = 4 ce qui va me permettre de faire l'arbre de huffmann.

Voici ce que j'ai pu faire jusque là,
j'arrive a ouvrir le fichier et a lire chaque ligne ..

Code :

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

1
2
3
4
5
6
7
8
9
Let lire mon_fichier =
  let f = open_in mon_fichier in 
  let rec lire_rec () =
    try 
      print_string (input_line f); print_newline(); lire_rec ();
    with End_of_file -> close_in f
  in lire_rec ();;
 
lire "fichier.txt" ;;

[cvanaret]

Commence par stocker le contenu de chaque ligne, plutôt que de l'afficher.
Grâce aux fonctions du module String, tu peux ensuite parcourir chaque ligne et compter le nombre d'occurrences de chaque lettre.

[LaeticiaM]

Merci pour la suggestion ..

[cvanaret]

Je te sens moyennement emballée par ma réponse :p

Ecris ne fonction qui prend en paramètres :
- la liste courante des (lettre, nombre d'occurrences)
- la lettre lue
et qui renvoie la nouvelle liste, où le nombre d'occurrences de la lettre a été incrémenté.

Ecris une fonction qui prend en paramètres :
- une chaîne de caractères (= une ligne)
- la liste courante des (lettre, nombre d'occurrences)
et qui renvoie la nouvelle liste des (lettre, nombre d'occurrences).

Ensuite, grâce à la fonction String.length et l'accès au ième caractère (chaine.[i]), tu peux facilement appeler la 1e fonction dans la 2e.

[LaeticiaM]

Bonjour,

c'est vrai que j'étais un peu perdu mais bon..
En fait je ne suis pas du tout bonne en ocaml, c'est pour ça que j'ai un peu de mal.

pour la 1ere fonction, si je fais :
let rec fonction1 liste x = function ..
comment est ce que je sais ce qu'il y'a dans liste ? et comment savoir a chaque fois que je rencontre la lettre..?

En java je sais que je n'ai qu'a faire un "if" pour voir s'il y'a la lettre et l'incrémenter mais en ocaml je ne vois vraiment pas.

[cvanaret]

Pareil en OCaml... Le plus dur à écrire, c'est le pseudo-code (la partie algorithmique), pas la partie Caml.

Tu peux écrire :

Code :

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

1
2
3
4
5
6
let rec fonction lettre_lue liste =
  match liste with
    | [] -> ...
    | (lettre, occurrences) :: reste -> (* je décompose ma liste en une tête et une queue *)
      if lettre = lettre_lue then ...
      else ...

dont le filtrage s'abrège en :

Code :

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

1
2
3
let rec fonction lettre_lue = function
  | [] -> ...
  | (lettre, occurrences) :: reste -> ...