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

Somme des premiers entiers

Programmation impérative : références et boucles · niveau 1 (application)

Énoncé

Écrire somme n qui calcule $1 + 2 + ... + n$ avec une boucle for et une référence.

let somme n =
  let s = ref 0 in
  for i = 1 to n do
    s := !s + i
  done;
  !s

On accumule dans s, de 1 à n inclus. Pour n = 0, la boucle ne s'exécute pas et somme 0 vaut 0, comme attendu.