OCaml (option informatique) · Chapitre 3 · Application directe du cours
Jours de la semaine
Types sommes et arbres · niveau 1 (application)
É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
| _ -> falseLe 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.
Exercices semblables
- Appartenance dans un arbre binaire de recherche corrigé
- Insertion dans un ABR corrigé
- Parcours infixe corrigé
- Aire d'une forme corrigé
- Taille d'un arbre corrigé