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

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

View File

@ -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)
```