Bonjour, je dois charger un dictionnaire de 300.000 mots, seulement j'explose la pile... Stack overflow during evaluation (looping recursion?).
J'ai bien vu quelques sujets qui parlent de la récursivité terminale, etc... mais pas de réelle solution.
Voilà ma fonction :
Quelqu'un a t-il une solution pour que je puisse charger tout mon fichier ?
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 let rec lire = function (ii) -> try let i = input_line (ii) in i :: lire (ii) with End_of_file -> [];; let charge = function (st) -> let ii = open_in st in lire (ii);;
Merci
Partager