sphynx · February 23, 2011 21:22
diff --git a/gistfile1.hs b/gistfile1.hs
 primes :: [Integer]
 primes = sieve [2..]
  where
    sieve (p:xs) = p : sieve [x | x <- xs, x `mod` p > 0]

 main = print $ primes !! 10000

 -- compile with `ghc --make primes.hs`, then run run run :)
	primes :: [Integer]
	primes = sieve [2..]
	where
	sieve (p:xs) = p : sieve [x \| x <- xs, x `mod` p > 0]

	main = print $ primes !! 10000

	-- compile with `ghc --make primes.hs`, then run run run :)