vault backup: 2023-09-07 14:19:45
This commit is contained in:
parent
7c97ca56ee
commit
9af0cb7927
@ -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)
|
||||
|
||||
```
|
||||
|
Loading…
x
Reference in New Issue
Block a user