More TP1

TP1/ex2.ml

@@ -58,4 +58,8 @@ let split l =
   | (0, l) -> (g, l)
   | (i, h::t) -> impl (h::g) (i-1, t)
 
-  in impl [] ((length l) / 2, l);;
\ No newline at end of file
+  in impl [] ((length l) / 2, l);;
+
+let rec filter p = function
+| [] -> []
+| h::t -> if p h then h::(filter p t) else filter p t;;
\ No newline at end of file