From e500ac3dacdb8a62a77976a85f4e0d9e26365fbb Mon Sep 17 00:00:00 2001 From: Louis Date: Tue, 12 Sep 2023 16:20:45 +0200 Subject: [PATCH] vault backup: 2023-09-12 16:20:45 --- Algo/Séminaire/Chapter 5 - Recursivity.md | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/Algo/Séminaire/Chapter 5 - Recursivity.md b/Algo/Séminaire/Chapter 5 - Recursivity.md index eb70281..90de627 100644 --- a/Algo/Séminaire/Chapter 5 - Recursivity.md +++ b/Algo/Séminaire/Chapter 5 - Recursivity.md @@ -39,7 +39,18 @@ To write a recurvise function we need two things ### 5.2. Down ```Ocaml # let rec countdown n = - if n = 0 then - print_int(0) + if n < 0 then + () else - print_int(countdown (n-1));; \ No newline at end of file + begin + print_int n ; + print_newline(); + countdown(n-1); + end;; +val countdown = int -> unit = () + +# countdown 3;; +3 +2 +1 +- : unit = () \ No newline at end of file