(* Existence d'un élément dans une liste vérifiant un prédicat donné *)

let rec exists p = function
  | []     -> false
  | x :: l -> p x || exists p l

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

This document was generated using caml2html