Commit 37448302 authored by Martin Pépin's avatar Martin Pépin
Browse files

Printer for counter

parent 4edc34d0
let input_int () =
let line = input_line stdin in
try int_of_string line
with _ -> Printf.eprintf "==>%s<==\n" line ; flush stdout ; exit 2
let rec main () =
let sec = input_int () in
let min = input_int () in
let h = input_int () in
let _ = input_line stdin in
Printf.printf "%.2d : %.2d : %.2d\n" h min sec;
flush stdout;
main ()
let () = main ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment