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

Algo/Séminaire/Chapter 3 - Case analysis.md

@@ -166,4 +166,10 @@ val avg : int -> int -> int = <fun>
 # let and_p a b = match (a,b) with 
 	| (true, true) -> true
 	| _ -> false;;
-val and_p : bool -> bool -> bool = <fun>
+val and_p : bool -> bool -> bool = <fun>
+
+# let and_t = function 
+	| (true, true) -> true
+	| _ -> false
+val and_t -> bool * bool = <fun>
+```