Problem 25
http://projecteuler.net/index.php?section=problems&id=25
-- Haskell, 090104 import List (findIndex) import Maybe (fromJust) import Sequence (fibonacci) main = print $ (+) 1 $ fromJust $ findIndex ((<=) 1000 . length . show) fibonacci
数列モジュールを使用.