vault backup: 2023-09-07 14:53:34

2023-09-07 14:53:34 +02:00
parent 0ccbedd80a
commit 863fc61796
2 changed files with 12 additions and 4 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -72,6 +72,14 @@ let add a b =

 let test x y = (if x> y then x else y ) *(x+y);;

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