From 45f01665d98b573b7deb50abbc48a6ecc98079f3 Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Fri, 15 Sep 2023 14:56:59 +0200
Subject: [PATCH] vault backup: 2023-09-15 14:56:59

---
 Algo/Séminaire/Chapter 5 - Recursivity.md | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/Algo/Séminaire/Chapter 5 - Recursivity.md b/Algo/Séminaire/Chapter 5 - Recursivity.md
index 262df8d..969c3e1 100644
--- a/Algo/Séminaire/Chapter 5 - Recursivity.md	
+++ b/Algo/Séminaire/Chapter 5 - Recursivity.md	
@@ -104,4 +104,14 @@ An accumulator is a thing that try to get our result. In CAML we trying to not u
 ```
 
 ## 4.3. Complexity
-Exemple with egypt (4.10) vs multiply (4.6)
\ No newline at end of file
+Exemple with egypt (4.10) vs multiply (4.6):
+```Ocaml
+# let multiplu a b =
+	let (a,b) = if a > b then
+		(a,b) else
+		(b,a)
+	in let rec mult = function
+		| 0 -> 0
+		| b -> a +mult (b-1)
+	in mult b;;
+```