Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 322 Bytes
-- ghc -O2 --make runtime
-- ./runtime -u runtime.csv
-- barchart criterion runtime.csv
import Criterion.Main
import Data.Numbers.Primes
main :: IO ()
main = defaultMain [ test size | size <- [5..15] ]
where test size = bench ("wheel"++show size) $ whnf comp size
comp size = (wheelSieve size :: [Int]) !! 10000