mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-03 20:54:00 +01:00
25 lines
373 B
OCaml
25 lines
373 B
OCaml
let input_lines filename =
|
|
let in_channel =
|
|
open_in filename
|
|
in
|
|
let rec aux accu =
|
|
try
|
|
let newline =
|
|
input_line in_channel
|
|
in
|
|
aux (newline::accu)
|
|
with End_of_file -> accu
|
|
in
|
|
let result =
|
|
List.rev (aux [])
|
|
in
|
|
close_in in_channel;
|
|
result
|
|
|
|
|
|
|
|
let read_all filename =
|
|
input_lines filename
|
|
|> String.concat "\n"
|
|
|