maciej-bendkowski/generic-boltzmann-brain
1
1
Fork 0
mirror of https://github.com/maciej-bendkowski/generic-boltzmann-brain.git synced 2024-09-11 12:48:09 +03:00
Code Issues Projects Releases Wiki Activity

Evaluate to normal form in benchmarks.

Browse Source
This commit is contained in:
Maciej Bendkowski 2022-01-29 19:53:55 +01:00
parent 6ed4956c34
commit e186b51c0b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
benchmark/BinTree/BinTreeBenchmark.hs
View File

@ -2,8 +2,7 @@
import BinTree (BinTree)
import BinTreeSampler (mediumRandomBinTreeListIO, randomBinTreeListIO)
import Control.Monad (replicateM)
import Criterion.Main (bench, defaultMain, whnfIO)
import Criterion.Main (bench, defaultMain, nfIO)
sampler :: Int -> IO [BinTree]
sampler = randomBinTreeListIO 800 1200
@ -14,6 +13,6 @@ mediumSampler = mediumRandomBinTreeListIO 8_000 12_000
main :: IO ()
main =
defaultMain
[ bench "100 binary trees" $ whnfIO (sampler 100)
, bench "100 large binary trees" $ whnfIO (mediumSampler 100)
[ bench "100 binary trees" $ nfIO (sampler 100)
, bench "100 large binary trees" $ nfIO (mediumSampler 100)
]