28 lines
745 B
Haskell
28 lines
745 B
Haskell
import Criterion.Main
|
|
|
|
import Dodge.RandomHelp
|
|
|
|
import Geometry
|
|
|
|
import System.Random
|
|
import Control.Monad (replicateM)
|
|
import Data.Functor ((<&>))
|
|
import Control.Monad.State
|
|
import Data.List (zip4)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
[ps1, ps2, ps3, ps4] <- mapM randomPoints [500,500,500,500]
|
|
fs <- replicateM 500 (randomRIO (1,20))
|
|
defaultMain
|
|
[ bgroup "circLine tests"
|
|
[ bench "circLine" $ nf (map $ uncurry4 circOnLine) (zip4 ps1 ps2 ps3 fs)
|
|
, bench "circLine'" $ nf (map $ uncurry4 circOnLine') (zip4 ps1 ps2 ps3 fs)
|
|
]
|
|
]
|
|
|
|
uncurry4 f (a,b,c,d) = f a b c d
|
|
|
|
randomPoints :: Int -> IO [Point2]
|
|
randomPoints i = getStdGen <&> evalState (replicateM i $ randInCirc 500)
|