mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-02 03:33:37 +01:00
25 lines
369 B
OCaml
25 lines
369 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"
|
||
|
|