http://www.colorless-sight.jp/wiki/?ProjectEular%2FProblem10
[[ProjectEular]] -- Problem 10 module Main (main) where import qualified Common as C (is_prime) main :: IO () main = print $ problem10 problem10 :: (Integral a) => a problem10 = sum [ x | x <- (2:[3,5..2000000]), C.is_prime x ]