(* Ne conserver que les éléments d'une liste vérifiant un prédicat donné *)

let rec filter p = function
  | []              -> []
  | x :: l when p x -> x :: filter p l
  | _ :: l          -> filter p l

(* note : c'est List.filter dans la bibliothèque OCaml *)


This document was generated using caml2html