Adloun

Mise à jour fonctionnelle

Exercice · OCaml (option informatique), chapitre 7 — Enregistrements et types mutuellement récursifs

É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.

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.