Prog Caml : Fabriquer le tableau des N premiers carrés

Ecrivez maintenant une fonction fabrique_tab_carre qui prend en paramètre un entier taille et qui retourne un tableau de taille taille tel que le contenu de la case d'indice i soit le carré de i.

Code à compléter Caml

let affiche_tableau_entiers tab =
  let taille = Array.length tab in
  for indice = 0 to pred taille do
     print_int tab.(indice);
     print_string " ";
  done;
  print_newline();
 ;;

let fabrique_tab_carre taille =
(* à compléter *)
;;

let nb = read_int () in
print_int nb ; print_newline () ;
affiche_tableau_entiers (fabrique_tab_carre nb);;