http://www.colorless-sight.jp/wiki/?ProjectEular%2FProblem7
[[ProjectEular]] -- Problem 7 module Main (main) where import qualified Common as C (factorize, is_prime) main :: IO () main = print $ problem7 problem7 :: (Integral a) => a problem7 = [ x | x <- (2:[3,5..]), C.is_prime x ] !! 10000