lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vault backup: 2023-09-07 15:27:43

Browse Source
This commit is contained in:
Louis Gallet 2023-09-07 15:27:43 +02:00
parent 3f91501d0c
commit 723a9efd9f
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Algo/Séminaire/Exercices sémaines.md
View File

@ -129,10 +129,17 @@ let equiv a b =
### Exercise 3.3 ### Exercise 3.3
```Ocaml ```Ocaml
let max2 number1 number2 = if number1 > number2 then number1 else number2 # let max2 number1 number2 = if number1 > number2 then number1 else number2
let min2 number1 number2 = if number1 > number2 then number2 else number1 val max2 : 'a -> 'a -> 'a = <fun>
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 = <fun>
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 = <fun>
let min3 number1 number2 number3 = if number1 < number2 && number1< number2 then number1 else if number2 < number3 && number2<number1 then number2 else number3 let min3 number1 number2 number3 = if number1 < number2 && number1< number2 then number1 else if number2 < number3 && number2<number1 then number2 else number3