Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

12 lines (9 sloc) 0.322 kb
-- 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
Jump to Line
Something went wrong with that request. Please try again.