rinx · December 20, 2015 04:19
diff --git a/sieve_of_Eratosthenes.hs b/sieve_of_Eratosthenes.hs
 main :: IO()
 main = mapM_ print $ prime 10000

 prime :: Int -> [Int]
 prime n = primeList [2..n]
    where 
        primeList [] = []
        primeList (x:xs) = x:primeList [ y | y <- xs, y `mod` x /= 0 ]
	main :: IO()
	main = mapM_ print $ prime 10000

	prime :: Int -> [Int]
	prime n = primeList [2..n]
	where
	primeList [] = []
	primeList (x:xs) = x:primeList [ y \| y <- xs, y `mod` x /= 0 ]