Add AoC page

content/projects/aoc-2023-mulling.md

@@ -0,0 +1,39 @@
+---
+author: "Mulling"
+title: "AoC 2023 - Mulling"
+date: 2023-12-04T23:25:02-03:00
+description: "Haskell torture"
+draft: false
+---
+
+- [Day 1](#day-1)
+
+# Day 1
+This problem kinda stinks, plus I'm still very rusty on the ol' Haskell.
+
+```haskell
+import Control.Applicative
+
+import Data.Char
+import Data.List
+
+main :: IO ()
+main = interact (show . sum . map (liftA2 (\ x y -> read [x, y] :: Int) head last . digits) . lines)
+  where
+    digits [] = []
+    digits l@(x:xs) | isPrefixOf "one"   l = '1':digits xs
+                    | isPrefixOf "two"   l = '2':digits xs
+                    | isPrefixOf "three" l = '3':digits xs
+                    | isPrefixOf "four"  l = '4':digits xs
+                    | isPrefixOf "five"  l = '5':digits xs
+                    | isPrefixOf "six"   l = '6':digits xs
+                    | isPrefixOf "seven" l = '7':digits xs
+                    | isPrefixOf "eight" l = '8':digits xs
+                    | isPrefixOf "nine"  l = '9':digits xs
+                    | isDigit x            =  x :digits xs
+                    | otherwise            =     digits xs
+    digits' = filter isDigit
+```
+
+It's quite funny that the final binary has 14Mb...
+