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

vault backup: 2023-09-11 16:11:15

Browse Source
This commit is contained in:
Louis Gallet 2023-09-11 16:11:15 +02:00
parent 385593088e
commit 0666f58d6f
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
3 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.obsidian/workspace.json vendored
View File

@ -148,10 +148,12 @@
}, },
"active": "26ca4bd66426e29b", "active": "26ca4bd66426e29b",
"lastOpenFiles": [ "lastOpenFiles": [
"Algo/Séminaire/Weird stuff.md",
"Algo/Séminaire/Chapter 3 - Case analysis.md", "Algo/Séminaire/Chapter 3 - Case analysis.md",
"Untitled",
"Algo/Séminaire/Exercices seminaire.md", "Algo/Séminaire/Exercices seminaire.md",
"Algo/Séminaire/Chapter 2 - Functions.md",
"Algo/Séminaire/Chapter 1 - CAML basics.md", "Algo/Séminaire/Chapter 1 - CAML basics.md",
"Algo/Séminaire/Chapter 2 - Functions.md",
"Algo/Séminaire/Introduction.md", "Algo/Séminaire/Introduction.md",
"Algo/Séminaire/assets/69E2987C-209A-48CD-8964-5A60462966E5.jpg", "Algo/Séminaire/assets/69E2987C-209A-48CD-8964-5A60462966E5.jpg",
"Algo/Séminaire/assets", "Algo/Séminaire/assets",

37
Algo/Séminaire/Exercices seminaire.md
View File

@ -173,29 +173,32 @@ val highest_square_sum : int -> int -> int -> int = <fun>
## Exercise 3.7 ## Exercise 3.7
```Ocaml ```Ocaml
# let rate_eco kg = match kg with # let rate_eco kg = match kg with
x when x <= 500. -> 3.40 x when x <= 500 -> 3.40
| x when x <=1000. -> 4.60 | x when x <=1000 -> 4.60
| x when x <= 2000. -> 5.10 | x when x <= 2000 -> 5.10
| x when x <= 3000. -> 6.90 ;; | x when x <= 3000 -> 6.90
val rate_eco : float -> float = <fun> | _ -> invalid_arg "Cannot be more than 3000g";;
val rate_eco : int -> float = <fun>
# let rate_standard kg = match kg with # let rate_standard kg = match kg with
x when x <= 500. -> 4.60 x when x <= 500 -> 4.60
| x when x <=1000. -> 5.90 | x when x <=1000 -> 5.90
| x when x <= 2000. -> 6.50 | x when x <= 2000 -> 6.50
| x when x <= 3000. -> 7.20;; | x when x <= 3000 -> 7.20
val rate_standart : float -> float = <fun> | _ -> invalid_arg "Cannot be more than 3000g";;
val rate_standart : int -> float = <fun>
# let rate_express kg = match kg with # let rate_express kg = match kg with
x when x <= 500. -> 9.10 x when x <= 500 -> 9.10
| x when x <=1000. -> 11. | x when x <=1000 -> 11.
| x when x <= 2000. -> 13.5 | x when x <= 2000 -> 13.5
| x when x <= 3000. -> 14.2;; | x when x <= 3000 -> 14.2;
val rate_express : float -> float = <fun> | _ -> invalid_arg "Cannot be more than 3000g";;
val rate_express : int -> float = <fun>
# let rate rt kg = match rt with # let rate rt kg = match rt with
x when x = "economic" -> rate_eco(kg) x when x = "economic" -> rate_eco(kg)
| x when x = "standard" -> rate_standard(kg) | x when x = "standard" -> rate_standard(kg)
| x when x = "express" -> rate_express(kg) | x when x = "express" -> rate_express(kg)
| _ -> invalid_arg "Bad type of shipping class" | _ -> invalid_arg "Bad type of shipping class";;
val rate : string -> float -> float = <fun> val rate : string -> int -> float = <fun>

3
Algo/Séminaire/Weird stuff.md Normal file
View File

@ -0,0 +1,3 @@
```Ocaml
10 mod (-3) = 10 mod 3
```