From 226cb54ea1d027c40216324408bd2c34d9dfbead Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Mon, 11 Sep 2023 16:18:42 +0200
Subject: [PATCH] vault backup: 2023-09-11 16:18:42

---
 Algo/Séminaire/Exercices seminaire.md | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 8943a57..a315154 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -202,3 +202,16 @@ val rate_express : int -> float = <fun>
 	| x when x = "express" -> rate_express(kg)
 	| _ -> invalid_arg "Bad type of shipping class";;
 val rate : string -> int -> float = <fun>
+
+(*4th question*)
+let price w (p1, p2, p3, p4) = 
+	if w <=500 then p1
+	else if w <=1000 then p2
+	else if w <=2000 then p3
+	else if w <=3000 then p4
+	else failwith "Too heavy";;
+val price = int -> 'a * 'a * 'a * 'a -> 'a = <fun>
+```
+
+
+