From f9b8d8cecbcad0b01b7ccb9426859d6cdc8460d5 Mon Sep 17 00:00:00 2001 From: Louis Date: Mon, 11 Sep 2023 16:28:29 +0200 Subject: [PATCH] vault backup: 2023-09-11 16:28:29 --- Algo/Séminaire/Exercices seminaire.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md index e34b8c2..cfbc7b5 100644 --- a/Algo/Séminaire/Exercices seminaire.md +++ b/Algo/Séminaire/Exercices seminaire.md @@ -197,7 +197,7 @@ val rate_standart : int -> float = val rate_express : int -> float = # 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 = "express" -> rate_express(kg) | _ -> invalid_arg "Bad type of shipping class";;