(* recherche d'un élément dans une liste (avec l'égalité polymorphe) *)

let rec mem x = function
  | [] -> false
  | y :: l -> x = y || mem x l

(* note : le caractère paresseux de || interrompt la recherche dès que
   l'élément est trouvé *)

This document was generated using caml2html