Adloun

OCaml (option informatique) · Chapitre 7 · Exercice de TD

Mise à jour fonctionnelle

Enregistrements et types mutuellement récursifs · niveau 2

Énoncé

À l'aide de la notation { ... with ... }, écrire augmente e qui renvoie une copie de l'étudiant avec sa note majorée d'un point (plafonnée à ).

Corrigé

let augmente e =
  let nouvelle = if e.note +. 1.0 > 20.0 then 20.0 else e.note +. 1.0 in
  { e with note = nouvelle }

{ e with note = ... } crée un nouvel etudiant identique à e sauf pour le champ note ; e reste inchangé. Pratique quand un type a beaucoup de champs et qu'on n'en modifie qu'un.

Exercices semblables

Le cours du chapitre · Tous les exercices du chapitre