Nombre maximal d'activités

Exercice · OCaml (option informatique), chapitre 12 — Algorithmes gloutons

Énoncé

Écrire nombre_max activites (combien d'activités au plus sans chevauchement).

let rec longueur l =
  match l with [] -> 0 | _ :: r -> 1 + longueur r

let nombre_max activites = longueur (selection activites)

On réutilise selection et l'on compte. Le glouton « fin la plus tôt » garantit que ce nombre est maximal (cf. l'argument d'échange).

Un blocage sur cet exercice ? Le tuteur d'Adloun guide par questions, sans donner la réponse.