Attempt to set up benchmark

2023-08-30 13:30:36 +02:00
parent 5796db3249
commit 69dbc4e001
3 changed files with 38 additions and 7 deletions
--- a/src/Days/D05.hs
+++ b/src/Days/D05.hs
@@ -71,4 +71,7 @@ part2 :: Intermediate -> Vector Char
 part2 = uncurry ((fmap head .) . foldl (move CM9001))

 day :: Day
-day = parsecDay parser (definitive . part1, definitive . part2)
+day = parsecDay parser (definitive . part1, definitive . part2)
+
+fast :: Day
+fast = day