vault backup: 2023-09-07 14:45:09

2023-09-07 14:45:09 +02:00 · 2023-09-07 14:45:09 +02:00 · 0ccbedd80a
commit 0ccbedd80a
parent c137d638a7
1 changed files with 2 additions and 0 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -70,6 +70,8 @@ let add a b =
 	else
 		b-a + b/a

+let test x y = (if x> y then x else y ) *(x+y);;
+
 let f a b c =
 	(if a > b && if b > c then
 		a + b else c + a