El número de Mersenne 47 en Haskell
En el artículo Cruce de listas abordamos el tema de la simplicidad y eficiencia de las soluciones. En este artículo deseo mostrar la capacidad de Haskell para calcular con grandes números enteros. Para ello, he elegido calcular el último primo de Mersenne descubierto.
Los números primos de Mersenne son los primos de la forma 
Para calcular con Haskell el valor de
|
1 |
main = print (2^43112609-1) |
A continuación, compilamos el fichero
|
1 2 3 |
> ghc -O2 --make mersenne.hs [1 of 1] Compiling Main (mersenne.hs,mersenne.o) Linking mersenne ... |
Finalmente, lo ejecutamos obteniendo el tiempo de ejecución y
escribiendo el número en el fichero mersenne.txt
|
1 2 3 4 5 |
> time ./mersenne > mersenne.txt real 2m27.802s user 2m26.945s sys 0m0.576s |
El fichero con el número puede leerse aquí.
Como se puede observar, el cálculo ha sido simple y eficiente.
Otra problema más difícil es comprobar que el número obtenido es primo.
Sería interesante comparar el cálculo de 