Add missing day marker

gnussy · Dec 13, 2023 · 8e3d592 · 8e3d592
1 parent fff31b9
commit 8e3d592
Showing 1 changed file with 17 additions and 1 deletion.
diff --git a/content/aoc/aoc-2023-mulling.md b/content/aoc/aoc-2023-mulling.md
@@ -10,6 +10,7 @@ draft: false
 - [Day 2](#day-2)
 - [Day 3](#day-3)
 - [Day 4](#day-4)
+- [Day 5](#day-5)
 
 ## Day 1
 This problem kinda stinks, plus I'm still very rusty with the ol' Haskell.
@@ -146,7 +147,22 @@ import Control.Applicative
 import Data.Set qualified as S
 
 main :: IO ()
-main = interact (show . sum . map ((2 ^) . pred) . filter (> 0) . (S.size . liftA2 S.intersection head last . (S.fromList . ((\xs -> read xs :: Int) <$>) . words <$>) . split (== '|') . tail . dropWhile (/= ':') <$>) . lines)
+main =
+  interact
+    ( show
+        . sum
+        . map ((2 ^) . pred)
+        . filter (> 0)
+        . ( S.size
+              . liftA2 S.intersection head last
+              . (S.fromList . ((\xs -> read xs :: Int) <$>) . words <$>)
+              . split (== '|')
+              . tail
+              . dropWhile (/= ':')
+              <$>
+          )
+        . lines
+    )
   where
     split fn xs = case break fn xs of
       (a, _ : b) -> a : split fn b