lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vault backup: 2023-09-12 16:20:45

Browse Source
This commit is contained in:
Louis Gallet 2023-09-12 16:20:45 +02:00
parent 42e289c63f
commit e500ac3dac
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Algo/Séminaire/Chapter 5 - Recursivity.md
View File

@ -39,7 +39,18 @@ To write a recurvise function we need two things
### 5.2. Down ### 5.2. Down
```Ocaml ```Ocaml
# let rec countdown n = # let rec countdown n =
if n = 0 then if n < 0 then
print_int(0) ()
else else
print_int(countdown (n-1));; begin
print_int n ;
print_newline();
countdown(n-1);
end;;
val countdown = int -> unit = ()
# countdown 3;;
3
2
1
- : unit = ()