reverse input list after reading

(recursive makes reverse)
This commit is contained in:
Vladan Popovic 2022-12-06 04:19:40 +01:00
parent 099d73e697
commit 538693d9f4

View file

@ -7,7 +7,7 @@ let read_file name =
match try_read () with match try_read () with
| Some s -> aux (s::acc) | Some s -> aux (s::acc)
| None -> close_in ic; acc in | None -> close_in ic; acc in
aux [] List.rev (aux [])
module CS = Set.Make(Char);; module CS = Set.Make(Char);;