vault backup: 2023-09-14 16:28:30
This commit is contained in:
@ -1,4 +1,3 @@
|
||||
|
||||
<center><img src="https://gitea.louisgallet.fr/lgallet/epicours/raw/branch/main/Algo/S%C3%A9minaire/assets/recursivite-meme.png " width=512 height=auto /> </center>
|
||||
|
||||
### 5.1. Simple functions
|
||||
@ -79,13 +78,13 @@ let rec fibonacci n =
|
||||
else
|
||||
fibonacci(n-1) + fibonacci(n-2);;
|
||||
|
||||
let add n =
|
||||
let rec odd n =
|
||||
if n = 0 then
|
||||
false
|
||||
else
|
||||
even (n-1);;
|
||||
|
||||
let even n =
|
||||
let rec even n =
|
||||
if n = 0 then
|
||||
true
|
||||
else
|
||||
|
Reference in New Issue
Block a user