(* 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 *)