OCaml (option informatique) · Chapitre 7 · Application directe du cours

Le type point

Enregistrements et types mutuellement récursifs · niveau 1 (application)

Énoncé

Déclarer point (x et y flottants), puis écrire distance_carree p (le carré de la distance à l'origine, pour éviter la racine).

type point = { x : float; y : float }

let distance_carree p = p.x *. p.x +. p.y *. p.y

On accède aux champs par p.x et p.y, et l'on combine avec les opérateurs flottants. distance_carree { x = 3.0; y = 4.0 } vaut 25..