Somme d'un tableau

let somme t =
  let s = ref 0 in
  for i = 0 to Array.length t - 1 do
    s := !s + t.(i)
  done;
  !s

La borne haute est Array.length t - 1 (dernier indice valide). Sur le tableau vide, la boucle ne tourne pas et la somme vaut 0.