/* Reto #18: Calcular el factorial de n, 0<=n<=100 */
 
#include <stdio.h>
#include <string.h>
 
#define MAX_LON_FACT 2600  /* suficiente para calcular el factorial de 1000 */
 
#define CharADig(c) ((int)((c)-'0'))
#define DigAChar(d) ((char)(d)+'0')
 
void mulenterolargo(int q,char *z)
{
  int temp=0,i,ltemp,lz=strlen(z);
  char stemp[15];
 
  for(i=lz-1;i>=0;i--)
  {
    temp+=CharADig(z[i])*q;
    z[i]=DigAChar(temp%10);
    temp/=10;
  }
 
  if(temp)
  {
    ltemp=sprintf(stemp,"%d",temp);
    memmove(&z[ltemp],&z[0],lz+1);
    memcpy(&z[0],stemp,ltemp);
  }
}
 
const char *factorial(int n,char fact[])
{
  int i;
  strcpy(fact,"1");
  for(i=2;i<=n;i++)
    mulenterolargo(i,fact);
  return fact;
}
 
int main(void)
{
  char fact[MAX_LON_FACT+1];
  int n;
 
  printf("Digite el n£mero: ");
 
  if(scanf("%d",&n)!=1 || n<0 || n>1000)
    return 1;
 
  printf("\n%d! = %s\n\n",n,factorial(n,fact));
  printf("Longitud = %d d¡gitos\n",strlen(fact));
  return 0;
}