13 lines
244 B
OCaml
13 lines
244 B
OCaml
let () =
|
|
let rec aux sum =
|
|
try
|
|
aux @@ Scanf.scanf " %d" (fun x -> sum + x)
|
|
with
|
|
| Scanf.Scan_failure _ ->
|
|
Scanf.scanf " %s" (fun _ -> ());
|
|
aux sum
|
|
| End_of_file -> sum
|
|
in
|
|
Printf.printf "%d\n" @@ aux 0;;
|
|
|