0votos

SERIE Fibonacci en Haskell

por josejuan hace 4 años

head $ dropWhile ((<1000). numDivs . factorization) $ f 0 1

buscar el primer numero fibonacci que contenga 1000 divisores ejemplo el 3 tiene 2 divisores el 1 y el 3 y pertenece a la serie fibonacci el desafió es buscar el primer numero de la serie fibonacci que sea divisible por 1000 números

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{-- 
 
    Usando los resultados de los desafíos siguientes: 
 
        http://www.solveet.com/exercises/Factorizar-el-factorial/243/solution-1656 
        http://www.solveet.com/exercises/Numero-con-mayor-cantidad-de-divisores/153/solution-1053 
        http://www.solveet.com/exercises/Fibonacci-rapido/37/solution-226 
 
    una forma muy sencilla de obtener rápidamente el resultado es 
 
--} 
 
print $ head $ dropWhile ((<1000). numDivs . factorization) $ f 0 1 
 
{-- 
0,08 seg en un Athlon 2,7Ghz 
--} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.