Factorial hasta 1000

[Robert01]

Pido disculpas por los resultados para factorial de 10000 y de 100000. ¡Son valores erróneos! no se en que estaba pensando cuando puse eso.

Saludos

[[seoane]]

Empezado por Robert01

Yo quise probar en freepascal pero hay algo que no anda bien, un error que dice que Result[i] es desconocida, tal vez alguna librería que no agregué.

En freepascal para devolver el valor en las funciones se utiliza el estilo clásico de pascal, es decir el propio nombre de la función. Así que prueba a utilizar MulSuper[i] en vez de Result[i], no lo he probado pero creo que debería de funcionar.

Empezado por Robert01

Pido disculpas por los resultados para factorial de 10000 y de 100000. ¡Son valores erróneos! no se en que estaba pensando cuando puse eso.

Si no me equivoco el de 100,000 correspondería a 10,000, y el de 10,000 a 1,000, serian ya unos tiempos razonables. El factorial de 100,000 no se puede calcular con este método porque se provoca un desbordamiento de la pila.

[xander]

En mi equipo el código expuesto por Seoane tal cual está se tarda 450 milisegundos en ejecutarse compilado en Delphi 2007, pero si le agrego a los procedimientos la sentencia inline se tarda solo 196 milisegundos!!!

En uno de esos equipos de doble nucleo que traen hasta aeromozas incluidas debe ser un tiro usando inline