vault backup: 2023-09-11 15:38:20

2023-09-11 15:38:20 +02:00
parent c360b44fb6
commit 385593088e
2 changed files with 8 additions and 8 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -196,5 +196,6 @@ val rate_express : float -> float = <fun>
 # let rate rt kg = match rt with
 	x when x = "economic" -> rate_eco(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"
 val rate : string -> float -> float = <fun>