From 723a9efd9f5022d796ca9988e61c84299a46e901 Mon Sep 17 00:00:00 2001 From: Louis Date: Thu, 7 Sep 2023 15:27:43 +0200 Subject: [PATCH] vault backup: 2023-09-07 15:27:43 --- Algo/Séminaire/Exercices sémaines.md | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/Algo/Séminaire/Exercices sémaines.md b/Algo/Séminaire/Exercices sémaines.md index dbd4566..66f8cd9 100644 --- a/Algo/Séminaire/Exercices sémaines.md +++ b/Algo/Séminaire/Exercices sémaines.md @@ -129,10 +129,17 @@ let equiv a b = ### Exercise 3.3 ```Ocaml -let max2 number1 number2 = if number1 > number2 then number1 else number2 -let min2 number1 number2 = if number1 > number2 then number2 else number1 +# let max2 number1 number2 = if number1 > number2 then number1 else number2 +val max2 : 'a -> 'a -> 'a = -let max3 number1 number2 number3 = if number1 > number2 && number1> number2 then number1 else if number2 > number3 && number2>1 then number2 else number3 +# let min2 number1 number2 = if number1 > number2 then number2 else number1 +val min2 : 'a -> 'a -> 'a = + +let max3 number1 number2 number3 = + if number1 > number2 && number1> number3 then number1 + else if number2 > number3 && number2>number1 then number2 + else number3 +val max3 : 'a -> 'a -> 'a -> 'a -> 'a = let min3 number1 number2 number3 = if number1 < number2 && number1< number2 then number1 else if number2 < number3 && number2