euler/haskell/e025.hs

6 lines
136 B
Haskell
Raw Normal View History

2015-01-04 23:52:50 +01:00
fib = 1 : 1 : zipWith (+) fib (tail fib)
fibIndexed = zip fib [1..]
e025 = filter (\(d, _) -> (length . show $ d) >= 1000) fibIndexed