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

let rec count x = function
  | []     -> 0
  | y :: l -> if y = x then 1 + count x l else count x l

(* voir l'exercice 2.23 pour une version en espace de pile constant *)

This document was generated using caml2html