25問目
http://projecteuler.net/index.php?section=problems&id=25
フィボナッチ数列で1000桁になるのは何番目かを求める。
main = print $ euler025 999 euler025 :: Int -> Int euler025 n = length $ takeWhile (< 10 ^ n) fibs fibs :: [Integer] fibs = 0 : 1 : (zipWith (+) fibs (tail fibs))