From e8d4c08ae7afc092910fb752a256709c0d023ef5 Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Tue, 12 Sep 2023 18:11:04 +0200
Subject: [PATCH] vault backup: 2023-09-12 18:11:04

---
 Algo/Séminaire/Exercices seminaire.md | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index a74f5ac..aaf4c58 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -279,3 +279,13 @@ let rec mult a b =
 	else 
 		-mult a (-b) ;;
 ```
+
+## Exercise 4.7
+```Ocaml
+let rec quo a b = 
+	if a < b || b = 0 then
+		0
+	else if b = 1 then
+		a
+	else 
+		a - quo (a-b) b ;;
\ No newline at end of file