From 5eb58ad076f2cd435b11b140820da224b60b73d5 Mon Sep 17 00:00:00 2001
From: Aria <me@aria.rip>
Date: Mon, 2 Jan 2023 21:58:56 +0000
Subject: initial commit

---
 2020/11a.hs | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 2020/11a.hs

(limited to '2020/11a.hs')

diff --git a/2020/11a.hs b/2020/11a.hs
new file mode 100644
index 0000000..f6a4e9d
--- /dev/null
+++ b/2020/11a.hs
@@ -0,0 +1,62 @@
+module Day11A where
+
+import System.Environment (getArgs)
+
+-- Type declarations
+type AreaMap = [[Space]];
+data Space = Occupied | Empty | Floor
+        deriving (Show, Eq, Ord);
+
+
+-- Keep applying f to a until the output stops changing
+untilUnchanged :: Eq a => (a -> a) -> a -> a
+untilUnchanged f a | n /= a    = untilUnchanged f n
+                   | otherwise = n
+                     where n = f a
+
+-- Get the space at x, y, or floor if it's out of bounds
+idxOrFloor :: AreaMap -> Int -> Int -> Space
+idxOrFloor ss x y | x >= length (head ss) || y >= length ss || x < 0 || y < 0 = Floor
+                  | otherwise = ss!!y!!x
+
+-- Get spaces adjacent to (x, y), including diagonals
+adjSpaces :: AreaMap -> (Int, Int) -> [Space]
+adjSpaces a (x, y) = [idxOrFloor a x' y' | x' <- [x-1..x+1], y' <- [y-1..y+1], x' /= x || y' /= y]
+
+-- Mutate a space given its current state and its adjacent spaces
+mutateSpace :: Space -> [Space] -> Space
+mutateSpace Empty adj | Occupied `notElem` adj = Occupied
+                      | otherwise = Empty
+mutateSpace Occupied adj | length (filter (== Occupied) adj) >= 4 = Empty
+                         | otherwise = Occupied
+mutateSpace x _ = x
+
+-- Mutate all spaces on the map
+mutateAll :: AreaMap -> AreaMap
+mutateAll rs = [[mutateSpace s (adjSpaces rs (c, r)) | (c, s) <- zip [0..] ss] | (r, ss) <- zip [0..] rs]
+
+-- Read a map in from its string representation
+readMap :: String -> AreaMap
+readMap = map readLine . lines
+            where readLine [] = []
+                  readLine ('.':xs) = Floor : readLine xs
+                  readLine ('L':xs) = Empty : readLine xs
+                  readLine ('#':xs) = Occupied : readLine xs
+                  readLine _ = error "Invalid character passed to readMap"
+
+-- Read a map from the filename
+mapFromFile :: String -> IO AreaMap
+mapFromFile s = do 
+                   contents <- readFile s;
+                   return $ readMap contents;
+
+main :: IO ()
+main = do 
+        args <- getArgs;
+        m <- mapFromFile (head args);
+
+        let final = untilUnchanged mutateAll m;
+        let occ = sum $ map (length . filter (== Occupied)) final;
+
+        putStrLn $ "Occupied Seats: " ++ show occ;
+        return ();
-- 
cgit v1.2.3