vault backup: 2023-09-12 14:28:40

Algo/Séminaire/Exercices seminaire.md

@@ -228,10 +228,18 @@ let strange = function
 	| (0, n) -> 0
 	| (m, 0) -> 2*m
 	| (m, n) -> m*n ;;
+val strange: int*int -> int = <fun>
 
 let or3 = function
-	| (a, false, false) -> "premier a"
-	| (false, b, false) -> "b"
-	| (false, false, c) -> "c" ;;
+	| (true, _, _) -> true
+	| (_, true, _) -> true
+	| (_, _, true) -> true
+	| _ -> false
+val or3: bool*bool*bool -> bool = <fun>
+
+let or3-simple = function
+	| (false, false, false) -> false
+	| _ -> true
+val or3-simple: bool*bool*bool -> bool = <fun>
 ```