loops-0.1.0.0: bench/Bench.hs

module Main where

import Criterion.Main

import Bench.Sum

main :: IO ()
main = defaultMain
    [ bgroup "sum"
        [ bgroup "foldl"
            [ bench "[]" $ nf bench_sum_foldl_List iters
            , bench "Vector" $ nf bench_sum_foldl_Vector iters
            , bench "LoopT Identity" $ nf bench_sum_foldl_LoopT iters
            ]
        , bgroup "foldr"
            [ bench "[]" $ nf bench_sum_foldr_List iters
            , bench "Vector" $ nf bench_sum_foldr_Vector iters
            , bench "LoopT Identity" $ nf bench_sum_foldr_LoopT iters
            ]
        ]
    ]
  where
    iters = 10000000