reverse input list after reading
(recursive makes reverse)
This commit is contained in:
parent
099d73e697
commit
538693d9f4
1 changed files with 1 additions and 1 deletions
|
@ -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);;
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue