58 lines
1.2 KiB
Haskell
58 lines
1.2 KiB
Haskell
module Main where
|
|
|
|
import Lib
|
|
|
|
import Criterion
|
|
import Criterion.Main
|
|
|
|
paths :: [FilePath]
|
|
paths =
|
|
[ "./data/01.in"
|
|
, "./data/02.in"
|
|
, "./data/03.in"
|
|
, "./data/04.in"
|
|
, "./data/05.in"
|
|
, "./data/06.in"
|
|
, "./data/07.in"
|
|
, "./data/08.in"
|
|
, "./data/09.in"
|
|
, "./data/10.in"
|
|
, "./data/11.in"
|
|
, "./data/12.in"
|
|
, "./data/13.in"
|
|
, "./data/14.in"
|
|
, "./data/15.in"
|
|
, "./data/16.in"
|
|
, "./data/17.in"
|
|
, "./data/18.in"
|
|
, "./data/19.in"
|
|
, "./data/20.in"
|
|
, "./data/21.in"
|
|
, ""
|
|
, "./data/23.in"
|
|
, "./data/24.in"
|
|
, "./data/25.in"
|
|
]
|
|
|
|
solutions :: [(Integer, [Day], FilePath)]
|
|
solutions = filter (\(n, d, p) -> not (null d)) $ zip3 [1 ..] days paths
|
|
|
|
makeGroup :: (Show a) => (a, [Day], FilePath) -> Benchmark
|
|
makeGroup (n, d, f) =
|
|
bgroup ("Day " ++ show n) (makeBenchmarks f d)
|
|
|
|
makeBenchmarks :: FilePath -> [Day] -> [Benchmark]
|
|
makeBenchmarks f = zipWith name [1 ..] . map (makeBench f)
|
|
where
|
|
name :: Int -> Benchmarkable -> Benchmark
|
|
name n = bench ("v" ++ show n)
|
|
|
|
makeBench :: FilePath -> Day -> Benchmarkable
|
|
makeBench f d = nfAppIO (fmap show . run d) f
|
|
|
|
groups :: [Benchmark]
|
|
groups = map makeGroup solutions
|
|
|
|
main :: IO ()
|
|
main = defaultMain groups
|