Amélioration aide

2020-01-18 09:27:11 +01:00 · 2020-01-18 09:27:11 +01:00 · ad72fdeb0b
commit ad72fdeb0b
parent b324162a12
1 changed files with 1 additions and 1 deletions
--- a/bin/nbr.ml
+++ b/bin/nbr.ml
@ -4,7 +4,7 @@ let rec parse_and_print () =
  input_line stdin |> function
  | "q" | "Q" -> ()
  | "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;
      parse_and_print ()
  | str ->