OCaml (option informatique) · Chapitre 3 · Application directe du cours

Taille d'un arbre

Types sommes et arbres · niveau 1 (application)

Énoncé

Écrire taille et l'appliquer à l'arbre Noeud (Noeud (Vide, 1, Vide), 2, Noeud (Vide, 3, Vide)).

let rec taille a =
  match a with
  | Vide -> 0
  | Noeud (g, _, d) -> 1 + taille g + taille d

Sur l'arbre proposé : 1 + taille (feuille 1) + taille (feuille 3) $=$ 1 + 1 + 1 = 3, chaque feuille valant 1 + 0 + 0.