vault backup: 2023-09-07 14:42:16

Algo/Séminaire/Exercices sémaines.md

@@ -64,6 +64,12 @@ let add_times h1 m1 s1 h2 m2 s2 =
 
 ## Exercise 3.1
 ```Ocaml
+let add a b = 
+	if a > b then 
+		a-b + a/b
+	else
+		b-a + b/a
+
 let f a b c =
 	(if a > b && if b > c then
 		a + b else c + a