Version fonctionnelle

Voilà une proposition pour une version fonctionnelle (sans gestion des erreurs).

let maybe_input_line ic =
 try Some(input_line ic)
 with End_of_file -> None
let process_file f filename =
 let ic = open_in filename in
 let answer = f ic in
 close_in ic;
 answer
let lines_of_file filename =
 let rec loop a ic =
 match maybe_input_line ic with
 | Some s -> loop (s :: a) ic
 | None -> a
 in
 process_file (loop []) filename

Je suis hyper heureux de la sortie de OCaml 4, préparez-vous à le voir arriver sous FreeBSD!