From 6046e775722ec7c23344206212b6679687b40016 Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Fri, 15 Sep 2023 16:21:59 +0200
Subject: [PATCH] vault backup: 2023-09-15 16:21:59

---
 Algo/Séminaire/Exercices seminaire.md | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 97be547..4c66420 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -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);;
 ```
\ No newline at end of file