jort-1.0.0: Bench.hs

module Bench where

import Ray
import Data.Array
import Basics(Color(..))
import Foreign.C.Types
import Foreign.Marshal.Array
import Foreign.Marshal.Alloc
import Data.Word
import Vectors
import Data.IORef

main = print $  map result $ map fromIntegral $ [1..10]

result time = sum $ elems $ Ray.rt time