criterion-0.8.0.0: examples/Comparison.hs
import Criterion.Main
main = defaultMain [
bcompare [
bench "exp" $ whnf exp (2 :: Double)
, bench "log" $ whnf log (2 :: Double)
, bench "sqrt" $ whnf sqrt (2 :: Double)
]
]
import Criterion.Main
main = defaultMain [
bcompare [
bench "exp" $ whnf exp (2 :: Double)
, bench "log" $ whnf log (2 :: Double)
, bench "sqrt" $ whnf sqrt (2 :: Double)
]
]