From 72e4d772ee0688b2d2c6ee9d1bafc49526fa2e68 Mon Sep 17 00:00:00 2001 From: Louis Date: Mon, 11 Sep 2023 16:24:38 +0200 Subject: [PATCH] vault backup: 2023-09-11 16:24:38 --- 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 a315154..e34b8c2 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";;