(* Premier élément d'une liste satisfaisant un prédicat donné. *)

let rec first p = function
  | []              -> raise Not_found
  | x :: _ when p x -> x
  | _ :: l          -> first p l

This document was generated using caml2html