matthieu/Nombres
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Amélioration aide

Browse Source
This commit is contained in:
Matthieu Dubuget 2020-01-18 09:27:11 +01:00
parent b324162a12
commit ad72fdeb0b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/nbr.ml
View File

@ -4,7 +4,7 @@ let rec parse_and_print () =
input_line stdin |> function input_line stdin |> function
| "q" | "Q" -> () | "q" | "Q" -> ()
| "h" | "?" | "H" -> | "h" | "?" | "H" ->
print_endline "Je n'accepte que des entiers. 'q' ou 'Q' pour quitter."; print_endline "Je n'accepte que des entiers positifs. Et pas trop grands…\n'q' ou 'Q' pour quitter.";
flush stdout; flush stdout;
parse_and_print () parse_and_print ()
| str -> | str ->