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

let count x l =
  List.fold_left (fun c y -> if y = x then c + 1 else c) 0 l

This document was generated using caml2html