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