Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (7 sloc) 226 Bytes
-- ghc -O2 --make memory
-- ./memory 6 1000000 +RTS -s
import System.Environment
import Data.Numbers.Primes
main :: IO ()
main = do [m,n] <- (map read . take 2) `fmap` getArgs
print $ (wheelSieve m :: [Int]) !! n