/*----------------------------------------------------------*/
/*                                                          */
/*         AUTHOR : Eric VIOLARD                            */
/*         E-MAIL : violard@icps.u-strasbg.fr               */
/*         ORGANISM : Université Louis Pasteur (Strasbourg) */
/*         CREATION : 23/11/02                              */
/*                                                          */
/* ---------------------------------------------------------*/

/*  

     Programme de calcul exact de la factorielle des nombres entiers de 1 à 50.
 
     On utilise la bibliothèque des grands entiers.

*/

#include <grand_entier.h> /* pour utiliser les grands entiers */ 
#include <stdio.h> /* pour utiliser la fonction printf */


grand_entier factorielle(int n)  
   /* calcul de la Factorielle de n pour n assez grand */
{
  grand_entier F; /* résultat */
  int i; /* nombre entiers de 1 à n-1 */

  F = cons_grand_entier(1); /* valeur initiale de F */
  for(i=1;i<n;i++) 
      F = multiple_grand_entier(F,i+1); 
      // une autre solution est :
      // F = produit_grand_entier(F,cons_grand_entier(i+1));
      // mais cette autre solution est beaucoup plus lente !

  return F;
}


/* --- */

main()
{ 
  int i; /* nombres entiers de 1 à 50 */
  
  for(i=1;i<=50;i++)  
    {
      printf("%d! = ",i); 
      ecriture_grand_entier(factorielle(i));
    }
}