Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 6f8918a01a
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (15 sloc) 0.494 kB
{-# LANGUAGE ForeignFunctionInterface #-}
module Main where
import Foreign.C.Types
import Criterion.Main
import Smallpt.Mutable
import Smallpt.Storable
import Smallpt.Unboxed
foreign import ccall unsafe "smallpt"
c_smallpt :: CInt -> CInt -> CInt -> IO ()
main = defaultMain
-- [ bench "c++" $ c_smallpt 20 20 8
[ bench "mutable" $ Smallpt.Mutable.smallpt 20 20 8 ]
-- , bench "storable" $ Smallpt.Storable.smallpt 20 20 8
-- , bench "unboxed" $ Smallpt.Unboxed.smallpt 20 20 8
-- ]
Jump to Line
Something went wrong with that request. Please try again.