Day 25: Code Chronicle
Megathread guidelines
- Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
- You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://topaz.github.io/paste/ if you prefer sending it through a URL
FAQ
- What is this?: Here is a post with a large amount of details: https://programming.dev/post/6637268
- Where do I participate?: https://adventofcode.com/
- Is there a leaderboard for the community?: We have a programming.dev leaderboard with the info on how to join in this post: https://programming.dev/post/6631465
Haskell
A total inability to write code correctly today slowed me down a bit, but I got there in the end. Merry Christmas, everyone <3
import Data.Either import Data.List import Data.List.Split readInput = partitionEithers . map readEntry . splitOn [""] . lines where readEntry ls = (if head (head ls) == '#' then Left else Right) . map (length . head . group) $ transpose ls main = do (locks, keys) <- readInput <$> readFile "input25" print . length $ filter (and . uncurry (zipWith (<=))) ((,) <$> locks <*> keys)