vault backup: 2023-10-06 14:28:28

Algo/Courses/Chapter 6 - Lists (Exercises).md

@@ -37,7 +37,7 @@ val count = 'a -> 'a list -> int = <fun>
 (* Correction *)
 # let search x = function
 	| [] -> false
-	| e::t when x = e -> true
+	| e::t -> x = e || search x t
 	| _::t -> search x t ;;
 val search 'a -> 'a list -> bool = <fun>
 ```