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

2023-09-12 18:11:04 +02:00 · 2023-09-12 18:11:04 +02:00 · e8d4c08ae7
commit e8d4c08ae7
parent 9ddcf4a551
1 changed files with 10 additions and 0 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -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 ;;