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

Milieu de deux points

Enregistrements et types mutuellement récursifs · niveau 2

Énoncé

Écrire milieu p1 p2 renvoyant le point milieu (un nouvel enregistrement).

let milieu p1 p2 =
  { x = (p1.x +. p2.x) /. 2.0;
    y = (p1.y +. p2.y) /. 2.0 }

On construit un nouveau point dont chaque champ est la moyenne. Les enregistrements d'entrée ne sont pas modifiés — ils sont immuables.