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

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

Browse Source
This commit is contained in:
Louis Gallet 2023-09-07 14:19:45 +02:00
parent 7c97ca56ee
commit 9af0cb7927
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,9 +106,9 @@ else
let max2 number1 number2 = if number1 > number2 then number1 else number2
let min2 number1 number2 = if number1 > number2 then number2 else number1
let max3 number1 number2 number 3 = if number1 > number2 && number1> number2 then number1 else if number2 > number3 && number2>1 then number2 else number3
let max3 number1 number2 number3 = if number1 > number2 && number1> number2 then number1 else if number2 > number3 && number2>1 then number2 else number3
let min3 number1 number2 number 3 = 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
let middle3 number1 number2 number3 = let min = min3(number1 number2 number2) and max = max3(number1 number2 number2) in if min = number1 && max = number3 then number2 else if min = number2 && max = number1 then number3 else number2
@ -116,4 +116,8 @@ let max4 number1 number2 number3 number4 = let nb1 = max2(number1 number2) and n
let min4 number1 number2 number3 number4 = let nb1 = min2(number1 number2) and nb2 = min2(number3 number4) in if nb1<nb2 then nb1 else nb2
```
### Exercise 3.4
```Ocaml
let highest_square_sum x1 x2 x3 = let bigger = max3(x1 x2 x3) and middle = middle3(x1 x2 x3) in (bigger*bigger middle*middle)
```