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

2023-09-15 16:21:59 +02:00 · 2023-09-15 16:21:59 +02:00 · 6046e77572
commit 6046e77572
parent 3f37a1ccb5
1 changed files with 7 additions and 4 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -369,8 +369,11 @@ let rec multiply x y =

 ## Exercise 4.11
 ```Ocaml
-let rec puissance = function
-	|n when n = 0 -> 1
-	|n when n = 1 -> x
-	|n -> 
+let rec puissance x n =
+	if n = 0 then
+		1
+	else if n = 1 then
+		x
+	else
+		x*puissance x (n-1);;
 ```