21 lines
567 B
OCaml
21 lines
567 B
OCaml
let rec parse_and_print () =
|
|
print_string "Entier (Ou [Q]uitter [H]elp) ? > ";
|
|
flush stdout;
|
|
input_line stdin |> function
|
|
| "q" | "Q" -> ()
|
|
| "h" | "?" | "H" ->
|
|
print_endline
|
|
"Je n'accepte que des entiers positifs. Et pas trop grands…\n\
|
|
'q' ou 'Q' pour quitter.";
|
|
flush stdout;
|
|
parse_and_print ()
|
|
| str ->
|
|
str |> int_of_string
|
|
|> (fun i ->
|
|
match i with
|
|
| i -> i |> Nombres.nombre |> print_endline
|
|
| exception _ -> ())
|
|
|> parse_and_print
|
|
|
|
let () = parse_and_print ()
|