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

vault backup: 2023-09-15 16:21:59

Browse Source
This commit is contained in:
Louis Gallet
2023-09-15 16:21:59 +02:00
parent 3f37a1ccb5
commit 6046e77572
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Algo/Séminaire/Exercices seminaire.md
View File

@ -369,8 +369,11 @@ let rec multiply x y =
## Exercise 4.11 ## Exercise 4.11
```Ocaml ```Ocaml
let rec puissance = function let rec puissance x n =
|n when n = 0 -> 1 if n = 0 then
|n when n = 1 -> x 1
|n -> else if n = 1 then
x
else
x*puissance x (n-1);;
``` ```