oropon · January 3, 2016 05:58
diff --git a/Primes b/Primes
 module Main where

 main = putStrLn $ unlines $ map (show) $ primes 1000000

 primes :: Int -> [Int]
 primes max 
 	| max < 2 = error "No primes"
 	| otherwise = erat [] [2..max]
 	where
 		erat :: [Int] -> [Int] -> [Int]
 		erat ps [] = ps
 		erat ps (x:xs) 
 			| x ^ 2 < max
 				= erat (x:ps) (filter (\n -> n `mod` x /= 0) xs)
 			| otherwise = reverse ps ++ xs
	module Main where

	main = putStrLn $ unlines $ map (show) $ primes 1000000

	primes :: Int -> [Int]
	primes max
	\| max < 2 = error "No primes"
	\| otherwise = erat [] [2..max]
	where
	erat :: [Int] -> [Int] -> [Int]
	erat ps [] = ps
	erat ps (x:xs)
	\| x ^ 2 < max
	= erat (x:ps) (filter (\n -> n `mod` x /= 0) xs)
	\| otherwise = reverse ps ++ xs