http://www.colorless-sight.jp/wiki/?ProjectEular%2FProblem25
[[ProjectEular]] -- Problem 25 module Main (main) where import qualified Common as C (fibs) main :: IO () main = print $ problem25 problem25 :: (Integral a) => a problem25 = fst $ head $ filter (\x -> snd x >= 10^999) $ zip [2..] C.fibs