vault backup: 2023-09-12 18:11:04

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 ;;