aggreact/src-benchmark/Main.hs
Yann Esposito (Yogsototh) ee456f7c11
still working
2019-06-17 10:44:13 +02:00

10 lines
161 B
Haskell

import Protolude
import Criterion
import Criterion.Main
inc :: Int -> Int
inc = (+1)
main :: IO ()
main = defaultMain [bench "inc 41" (whnf inc (41 :: Int))]