Anonymous user
Input loop: Difference between revisions
m
→{{header|OCaml}}
(Input loop in Rapira) |
|||
Line 2,365:
Below will be more scalable:
<lang ocaml>let
try Some (input_line ic)
with End_of_file -> None
Line 2,371:
let read_lines ic =
let rec loop acc =
match
| Some line -> loop (line :: acc)
| None -> (List.rev acc)
in
loop []
Line 2,382:
<lang ocaml>let read_lines f ic =
let rec loop () =
try f (input_line ic); loop ()
with End_of_file -> ()
in
loop ()
let () =
read_lines print_endline (open_in Sys.argv.(1))</lang>▼
let ic = open_in Sys.argv.(1) in
=={{header|Oforth}}==
|