From ad72fdeb0bd6464ff1ea75013ce9c5d857659652 Mon Sep 17 00:00:00 2001 From: Matthieu Dubuget Date: Sat, 18 Jan 2020 09:27:11 +0100 Subject: [PATCH] =?UTF-8?q?Am=C3=A9lioration=20aide?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- bin/nbr.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/nbr.ml b/bin/nbr.ml index 1dcef5f..ffdabfc 100644 --- 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 ->