benchmarks

Author: mstksg

README.md

@@ -46,7 +46,7 @@ haddocks][haddock] --- more info below!
 | Day 6 | | [x][d06g] | [x][d06h] | [x][d06b] |
 | Day 7 | | [x][d07g] | [x][d07h] | [x][d07b] |
 | Day 8 | | [x][d08g] | [x][d08h] | [x][d08b] |
-| Day 9 | |  | |  |
+| Day 9 | | [x][d09g] | [x][d09h] | [x][d09b] |
 | Day 10 | | | | |
 | Day 11 | | | | |
 | Day 12 | | | | |
@@ -321,3 +321,6 @@ All networking features are powered by *[advent-of-code-api][]*.
 [d08g]: https://github.com/mstksg/advent-of-code-2021/blob/master/src/AOC/Challenge/Day08.hs
 [d08h]: https://mstksg.github.io/advent-of-code-2021/src/AOC.Challenge.Day08.html
 [d08b]: https://github.com/mstksg/advent-of-code-2021/blob/master/reflections.md#day-8-benchmarks
+[d09g]: https://github.com/mstksg/advent-of-code-2021/blob/master/src/AOC/Challenge/Day09.hs
+[d09h]: https://mstksg.github.io/advent-of-code-2021/src/AOC.Challenge.Day09.html
+[d09b]: https://github.com/mstksg/advent-of-code-2021/blob/master/reflections.md#day-9-benchmarks

reflections.md

@@ -29,6 +29,7 @@ Table of Contents
 * [Day 6](#day-6) *(no reflection yet)*
 * [Day 7](#day-7) *(no reflection yet)*
 * [Day 8](#day-8) *(no reflection yet)*
+* [Day 9](#day-9) *(no reflection yet)*
 
 Day 1
 ------
@@ -559,3 +560,45 @@ std dev 5.367 μs (4.515 μs .. 6.275 μs)
 * parsing and formatting times excluded
 ```
 
+
+
+Day 9
+------
+
+<!--
+This section is generated and compiled by the build script at ./Build.hs from
+the file `./reflections/day09.md`. If you want to edit this, edit
+that file instead!
+-->
+
+*[Prompt][d09p]* / *[Code][d09g]* / *[Rendered][d09h]* / *[Standalone Reflection Page][d09r]*
+
+[d09p]: https://adventofcode.com/2021/day/9
+[d09g]: https://github.com/mstksg/advent-of-code-2021/blob/master/src/AOC/Challenge/Day09.hs
+[d09h]: https://mstksg.github.io/advent-of-code-2021/src/AOC.Challenge.Day09.html
+[d09r]: https://github.com/mstksg/advent-of-code-2021/blob/master/reflections-out/day09.md
+
+*Reflection not yet written -- please check back later!*
+
+### Day 9 Benchmarks
+
+```
+>> Day 09a
+benchmarking...
+time 1.593 ms (1.573 ms .. 1.614 ms)
+ 0.999 R² (0.999 R² .. 1.000 R²)
+mean 1.570 ms (1.561 ms .. 1.578 ms)
+std dev 27.83 μs (21.69 μs .. 34.24 μs)
+
+* parsing and formatting times excluded
+
+>> Day 09b
+benchmarking...
+time 7.241 ms (7.209 ms .. 7.271 ms)
+ 1.000 R² (0.999 R² .. 1.000 R²)
+mean 7.314 ms (7.292 ms .. 7.354 ms)
+std dev 82.86 μs (58.27 μs .. 124.0 μs)
+
+* parsing and formatting times excluded
+```
+

src/AOC/Challenge/Day09.hs

@@ -40,7 +40,7 @@ day09a :: Map Point Int :~> Int
 day09a = MkSol
  { sParse = Just . parseAsciiMap (mfilter (< 9) . digitToIntSafe)
  , sShow = show
- , sSolve = Just . sum . map ((+ 1) . snd) . findLows . M.filter (< 9)
+ , sSolve = Just . sum . map ((+ 1) . snd) . findLows
  }
 
 day09b :: Map Point Int :~> Int
@@ -50,7 +50,7 @@ day09b = MkSol
  , sSolve = \xs -> Just
  let -- map of points to their associated low points after flowing
  -- all the way downhill
- res  = flip M.mapWithKey (flowMap xs) \p -> \case
+ res = flip M.mapWithKey (flowMap xs) \p -> \case
  Nothing -> p
  Just q -> res M.! q
  in product . take 3 . sortBy (flip compare) . toList $ freqs res