Jours de la semaine

Exercice · OCaml (option informatique), chapitre 3 — Types sommes et arbres

Énoncé

Déclarer un type énuméré jour (les sept jours), puis écrire est_weekend : jour -> bool.

Corrigé

type jour = Lundi | Mardi | Mercredi | Jeudi | Vendredi | Samedi | Dimanche

let est_weekend j =
  match j with
  | Samedi | Dimanche -> true
  | _ -> false

Le motif _ regroupe les cinq jours ouvrés. On pourrait aussi tous les énumérer ; le _ est ici justifié car le résultat est le même pour tous, mais attention : avec _, le compilateur ne préviendra plus si l'on ajoute un jour. À doser.

Les autres exercices de ce chapitre Le cours du chapitre

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