On se souvient du code qui permet de calculer la somme des n
premiers entiers, où n
est un entier positif quelconque. On fait :
let n = ... in let total = ref 0 in for i = 1 to n do total := !total + i; done;
Et à la fin, !total
représente la valeur de la somme qu'on veut. L'objectif de cette partie est d'écrire une fonction qui prend en paramètre n
et qui retourne la somme des n
premiers entiers. Rappelons le schéma à suivre :
let (...nom de la fonction...) (...noms des paramètres...) = (...actions réalisées par la fonction...) (...valeur de retour...) in
Le début de cette fonction sera logiquement :
let somme_entiers n =
Les actions effectuées par la fonction sont les suivantes :
let total = ref 0 in for i = 1 to n do total := !total + i; done;
à savoir la création de la référence, et le calcul à l'aide de la boucle. Quant à la fin de cette fonction, il s'agit de la valeur de retour, c'est-à-dire !total
suivi d'un in
:
!total in
En mettant les trois morceaux bouts-à-bouts, on obtient la définition de la fonction somme_entiers
:
let somme_entiers n = let total = ref 0 in for i = 1 to n do total := !total + i; done; !total in
Voici un exemple d'utilisation de cette fonction :
let resultat = somme_entiers 5 in print_int resultat;