eeva/advent-of-code-2023
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Day 3

Browse source 
Messy business
This commit is contained in:
Samae 2023-12-28 22:30:05 +02:00
parent a234a23461
commit eedde02b59
7 changed files with 303 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Main.hs
View file

@ -4,11 +4,15 @@ module Main where
import Day1
import Day2
import Day3
main :: IO ()
main = do
putStrLn "AoC 2023"
--putStrLn "Day 1"
--Day1.main
putStrLn "Day 2"
Day2.main
--putStrLn "Day 2"
--Day2.main
putStrLn "Day 3"
Day3.main

10
inputs/day3-test.input Normal file
View file

@ -0,0 +1,10 @@
467..114..
...*......
..35..633.
......#...
617*......
.....+.58.
..592.....
......755.
...$.*....
.664.598..

20
inputs/day3-test2.input Normal file
View file

@ -0,0 +1,20 @@
...788.............................54.........501..........
..../..*963........................*..860..................
............*......41..481+.......462....$..187......678...
............707....&.........562...........*..........*....
.....210................356..*.........977.68.........38...
..............14..312......+..926.....*.......529..*.......
...416../467..........................423.....*...143...132
.....................*688...=....../..........194..........
..673/.....957...............103..104......................
.......628....*..62.......15.....................885.......
...*....*....222..*.........*795..........%...+...#.....54.
418..*..57........125...141.........965..382..177.......*..
....926...................*.#.........%.................517
..............$476....167....208..866...............86.....
...571.977...............*...........*551..................
......*........176.....705...../406...........42....226....
........194.....&....................905.567...*...........
.........*...................*726......*....*.714..........
..795.429...........$.....615........582.240.......*153...#
..............443....471.......770..............651.....649

140
inputs/day3.input Normal file
View file

@ -0,0 +1,140 @@
...788.............................54.........501...........555.........270.................................521......893....................
..../..*963........................*..860......................*....53...../.....................52.................&....347........428*522.
............*......41..481+.......462....$..187......678.......420....-....................&115.+...........................+...............
............707....&.........562...........*..........*.....................438....................&877..660....199..145.........71.........
.....210................356..*.........977.68.........38.......835.622.332.....*300.....131.422..............89..*.....+..........$.........
..............14..312......+..926.....*.......529..*............*...*....*.............*......%...310.......*...835..................885....
...416../467..........................423.....*...143...132..955...356...124.........588..947....*.....512......................134&.*......
.....................*688...=....../..........194..............................................148........*815.......................785....
..673/.....957...............103..104............................../..&.....888......408*703.....................@......896..4..526.........
.......628....*..62.......15.....................885.............649.720.............................93........703..........#..*............
...*....*....222..*.........*795..........%...+...#.....54.310.....................622....916.......=......./.........../.......493......956
418..*..57........125...141.........965..382..177.......*.....-.......390.....801....*.....&...659....406....912........614.448.............
....926...................*.#.........%.................517......*......%........%.301............$........*.......694......$......&........
..............$476....167....208..866...............86........818.200........588.......@....%.............534.....................324.......
...571.977...............*...........*551...................................%.....992..172...849.................578........814.............
......*........176.....705...../406...........42....226.........58....................................*621..........*......*....#54.........
........194.....&....................905.567...*...............*..........287...........303.........82.......600.....642....672.............
.........*...................*726......*....*.714...............341..530..+......415.../...............544....@.............................
..795.429...........$.....615........582.240.......*153...#.........-............&.........313..........*...........#.......*...............
..............443....471.......770..............651.....649.....&........*211..............*......548.235..........2.......898..............
..........916..@..*...............*......966.................869......843......*........744..410..+..................777*....../...728......
..976........*.....699.......763...893...*...462.......608*..................23.227.....................411.793..........984.683......*..985
....*.2*....787........258......*.......878.........................923..............................*.....*........................674.....
.241....966...........%.........804...............589....554...307.+....#.505..........&....332...449.190......780........*322..........-540
.................126.....837.@.........701.......%.......&......&.....581....*371.......753..-....................$....426.....=............
...........%.....*.......&....264.......*...................127....................562.......................379*...........786...#.-.......
....376...596......................%...511.551.........868....*....................&............224..............992............817.309.....
.......-...............374....-..164........*............./..627...340..274..710...................*.......347..............................
...535..........195.......#..278............495....................$.......*....@.....805.570......724.....#.........98.....................
...*...579*65.......................400*...........849......764@.........180..........&....+..576.............573...*.......................
...................648.162...../733.....462...........*.................................&......#....484..10$....*...............981.........
....712.....495.....*...$..........................932...............278..478.%728.....798.............*.......483.717@....593.....&........
...........*.....738.......................474...........772..877*98....*.-.............................556................*................
...870@..587.676............................*.......569..*............454.................=....832.249........369..264.........298*543......
.............*....246.608*.305............227......*....429.....57..........889...745......648....*..........*.....*....................502.
............901.....*......*......................55..............*704.264*...&........................543...234....859..$.............#....
..................693....661.....*641.................909.....800.......................779.811....789.*.................90...954$..........
637.....60....................607.........112........*..........@.89.....................#.....*...*....601....227..................32......
...#......+....132........410........%.....-..795*....702..........%..........495.............285.438.............*711..........346...*332..
......237................&......925..366..........340.........658......+..282.....532...................252.............195....@............
.13......*95...879............................................*......169..@.........%.....782....%..%..-......202.973...............765.....
................*......601.......864.....942.=195.=284........6.................351..../.#....618..409...........*...................*..965.
......673...../..862.....&.........*.....................................381.........777..................644............612.......852......
.......*....823...............211+..228......292*....418..290............*.................................*...-89..........................
...363..526.....77..../413................$......208...............*....80.......835/.........-...*......458..........5*214.................
..................*.&......206..........13.......................35..........338......%.......529..79..........718............&.............
........#..840..710..112..*....308...........&...618......................%.........130...917..................*......739..221.........106..
.....205...................417....*.....891..634....@.........241.........21..............*.........465......524...8...............*48......
.265...........*33.....431.......770.......*...........923.......%...........*.......449...61......*..............*.........$...409.........
.....403....202....226...&.............798..713....321................=...337..........*.........128.....826...=.33........655.......843....
...................*............943..................*....449..576.835.............$...945................@..506.................88....*....
........143...-.636...920......*...............=...580.......@...*.....729.........839...........................347...................608..
........@...847.......*........167.546......485.................453....................365.905.643=.........692....*.........795............
...................997.....919..........586..........374..............................*.....*.........529..*......34....660...&........573..
..752...853......*............$...407*..............*...................928.......641.988..201...+......*........................$...+.=....
....*......-..289.857.................403..........992......-.....206..&....../....*.............328.....28.........$..........957.552......
.....155................506.761..............................902..+........202...578..*.............................700.................351.
.........................*...../...............909%......737..........*267...........907....981..........273............887.&...............
.135.945...............649..........319.......................413..797......468...............@................$.733.....*...155.904........
........*510..508..964......*248...@.....68...........285.......*.......289....*.626+............76....#.....873.........723......*..800....
.............*....&.......51.........244..*...754.....*....#.607........*....148.....................800...@...................895.....*....
..863$....831..........................*.913.*.......326.215.............882...........774..................252....................#...929..
................9..........438.......652........239.............................111...*......39.........497......./519.............743......
..746.369...486.*....308......*...........736...*................495...............*...20.../............=..................%...........#...
.....*......*....786....*..224.......5.........205...397..........+.........456....833.........523*.............638......292....399..855....
...........135.........383...../...%..&.................*....335...........*.......................669.684*.......+............&.........980
...............974*185........680.987.........114.......117.&......755....596.../450.............-.........571.....................818..*...
..395.....................................823*......645...........*....#..............1...172...405....................*.....766....-..815..
.....*....769.998........762.325*440.976.........................507..833.........604*...................282......$.926.668.#...............
.....280.*.....*..75...................#......314.....666.................533..........789.......863............138...........494*955.......
.........77.......*.....907....732..............-.....*...224............*....283$......*.............................................348...
.................161.......*.......................106.......@...&........339............634..513.......729..68..........890.746............
............................551............-...368......&......21.................520............*.......#.....*........*.....+..4..........
..................*548....&.........843..290.....=......532.......................*.....190.393.404.........240..535..830...................
......721$...............982..........*.............811..........................276......#..........753*...................715.202..375....
..334..............................111..969.971........*..................199...............207......................792.......*.......*....
......793-..640...........=...............@....+..763..591....542......................747...*...............220....@.............#....598..
...........$..........&....723....72.652.........*..............#.....120...............*.....659.......%.....*...@...........435..41.......
....*875..........22..958.........*.............480.....................*............876..............44.....608...305..593...-.............
...........526...#...........329.208...@544..................885*751....756.74...........$139.=.........................*.........557....248
950..570.....$.........&.......*...................=.......$..................$........-.......173..&801.........504..215...................
........*.......924....658......41....142*........31..937...189.....100...........&....447.840.............................804..654.....%...
.747......481...*..........849&...........836...........#............*...........447.-.....*..........862.....108....343.....*.-....41..91..
...........*....783...........................................865..41.................154..520....367*.......*......*.....578........#......
852...43....759.......516..66.....*....422.........978.93-...*.........@425.579..27..................../..751..326.347...................173
.....*................*...*....204.627..$...........*..........57.287..............*........$755....356..........-.....77...................
..428..342...$335........296......................971..............%......294.968.721.546......................$...........630..............
................................649...........624..........-835.......-...%.....$........*........384.........18..131............545.654....
....36.114..106.............853....@.........=.....737...........*....517...414.....784...607.........411........*...........=..............
226*....*...*..........508.....*....................*.........303................../....-........................887..173....349.179....343.
.....903.....473..............190.-702.734..........24..............734+................198.....191*402..810..........@.....................
.........712.....405......967.................257............822...........664...........................*....+.$...........441.............
....608...*.......*.........#..........796....*...../........................*................800.....747...939.356.45..325.........899.....
......*..707.......629........570..358....*.66.....56......302...............804....+...290*...*....................*...$.......756..&..815.
.....697......................-....*....357....878.........*......@...931/.......*.511.......................958..169.......772*.......+....
...........777..369..............257.............@.567...334....785............171.........-....292...635...*......................@........
347*..........*..*../........962....................................................968#...763..%....&....561.....136...327*777....159.708..
....192....739..831.888.......*....304...................................715.........................................-......................
...........................658...%.*....................71....762.......*.....&605...509.401...543..970..........761........382.............
.....948.502...520&............188.689...................*......*........538............*.........#........947..@...........*.....530*......
........*.................................309+.172*744....481.29....@........-716...........................................227.......56....
...........*.....930.347&........................................111..6.......................578*..........&.188.......304.................
......151...88...*.........697.........111-...546*.....663*249...........482*7..........327.......423....513...*........../.880.............
...../.........309........*....-985.........%....................619...=...................*.................335.....808....*............141
........740............414............624..10.720*395........91...../..520......164......318...........397..........*.......560.............
........*..........27.................*.................736....*.+.............*....../...................@......344............361.....336.
.333..271..25.............958*839...991.................*.........82..........624.....286...........663.*...535...........383*.....=........
....*......-..........368.........=....................945....693....692..........769...............-...153...*...$811........277........981
...667...................*.........687....235.................*.....*......210.......*.834.....$.............73...........&.......71........
............-.....129....647.300..........................%....568...611..........262...*......742...............-213..754.....73.*....208..
..9.......19....................=.129........719$.....795..82...........................375...................................*....235.+....
...*...............................*...348............*.............260...638........................479........165....151...846.-..........
..257.524.......695.......787...403...*.......336......63....788......%......*.162..%.......................854*.......*.........492........
.........*377...../......$..........852...681....*............/.........923.......=.198..996.718.....809............443...............415...
....267..............%.......................*...533......617...724........#...$...........&...&.......@.......700...........%418.....*.....
145*............401..447.....634....&..819....9................*.......362.....241.....102..............................412.........929.14..
.........642/...*.............*....324....*....................394...#....+.........................661...................*.773.........*...
.....165........600.........492............253.918.......537.......140..+........*...................*.................773..*.....=.....433.
.....%.....10...................................*..83......$...........241.......576........*417....969...........852&.....848.821..........
.........../...153...........25*317......628.578....*....*.........*17...................227........................................995.....
.....889*.........*.459..697............*........304......852...788....630....720*594............$...............910.801..296...939....*....
223......235...607....*.*....802..249...233...............................$..............177/.734........828........*............/......830.
....................439..944..*...*...*...............=..482..&...............839....................349...*...$........./...........$......
..................%...........326....3.66..........628....*...350......544-...........763*.......83.......142..792....974....#....663.......
...$...*....729.916...........................916......221................................689...............................456.........62..
..621..436....*......#520..808........670....$......*..........121=...............780.........*844..........=..........827%......338...*....
.............24............*............*........601.346...621......531.....452......*.....659.......-297..697..468................*.936....
........265............905..64.&...589..960..................*.......*..........62..19.........152................*.......+.....243......962
...........*..220......*.......757.#..............-270..697..588....461..263......*.......@373....*........464...244...688..............*...
.........272..........993.536..............................*............&......961....=..........490..198.....*................181.....236..
......$....................*..406......................*....238..94..74............349......723............646..328............*............
.......139......./...........*..........624.........996.784.....*...-.........61.............+........*........*............981...557..66...
..............313...776*....228...........*...749...........246.579...240.230..*.=611..........*....917..................+.......*..........
.703..730.........................*961.764.......*......979*.........*....*...........=.....558.906...........58.875$..559.*274.549..819....
...*..*.......637..............853............821.............65*676.47...272..=213....45.................321*..............................
.661...964..............540.......................=....-.955............+...........$...........143.907..................1...10.............
...........660...........*..........109$.......415..353.....*...........572......878....77.........*.....................$.....*131..182/...
...........*.....963.....395..............871*............$..994...336.................................319.....88.620.......................
.......&...625......*.........7*121...........494......=...8......*....@..............................*..........*......998*973.......$.....
....691............614...795..........152............120...........238..496...........................477..........................994......

2
package.yaml
View file

@ -9,6 +9,8 @@ dependencies:
- base == 4.*
- attoparsec
- bytestring
- matrix
- vector
executables:
aoc23:

9
src/Day2.hs
View file

@ -3,8 +3,6 @@
module Day2 where
-- import qualified Data.ByteString as B
-- import qualified Data.ByteString.Char8 as Char8
import Data.Attoparsec.ByteString.Char8 as A
import Data.Either (fromRight)
import Data.String (fromString)
@ -110,11 +108,4 @@ parseInput = fromRight [] . parseOnly input . fromString
toPair (RedDice i) = ("red", i)
toPair (GreenDice i) = ("green", i)
toPair (BlueDice i) = ("blue", i)
--pure $ GameInstance Nothing Nothing (Just blue)
--where
-- parseRed = (decimal :: Parser Int) <* space <* "red"
-- parseGreen = (decimal :: Parser Int) <* space <* "green"
-- parseBlue = (decimal :: Parser Int) <* space <* "blue"

125
src/Day3.hs Normal file
View file

@ -0,0 +1,125 @@
module Day3 where
import Data.Char (isDigit)
import Data.Matrix (Matrix(..))
import Data.Maybe
import qualified Data.Char as C
import qualified Data.Matrix as M
import qualified Data.Vector as V
import qualified Data.Bifunctor as BF
-- import Debug.Trace
main :: IO ()
main = do
m <- M.fromLists . lines <$> readFile "inputs/day3.input"
putStrLn "Part 1 result:"
print $ solvePart1 m (symbolZone m)
putStrLn "Part 2 result:"
print $ solvePart2 m
newtype Symbol = Symbol Bool
deriving Eq
instance Show Symbol where
show (Symbol True) = "X"
show (Symbol False) = " "
solvePart2 :: Matrix Char -> Int
solvePart2 = sum . cogs
countParts :: (Int, Int) -> Matrix Char -> Int
countParts (x,y) = sum
. map tallyRow
. fmap (fmap justDigits)
. flip neighborList (x,y)
justDigits :: Maybe Char -> Maybe Char
justDigits (Just d) | isDigit d = Just d
justDigits _ = Nothing
tallyRow :: [Maybe Char] -> Int
tallyRow [ Just _ , Just _ , Just _ ] = 1
tallyRow [ Nothing , Just _ , Just _ ] = 1
tallyRow [ Just _ , Nothing , Just _ ] = 2
tallyRow [ Nothing , Nothing , Just _ ] = 1
tallyRow [ Just _ , Just _ , Nothing ] = 1
tallyRow [ Nothing , Just _ , Nothing ] = 1
tallyRow [ Just _ , Nothing , Nothing ] = 1
tallyRow [ Nothing , Nothing , Nothing ] = 0
tallyRow _ = error "This should never happen"
neighborList :: Matrix a -> (Int, Int) -> [[Maybe a]]
neighborList m (x,y) =
[ [ M.safeGet (x-1) (y-1) m , M.safeGet (x-1) y m , M.safeGet (x-1) (y+1) m ]
, [ M.safeGet x (y-1) m , M.safeGet x y m , M.safeGet x (y+1) m ]
, [ M.safeGet (x+1) (y-1) m , M.safeGet (x+1) y m , M.safeGet (x+1) (y+1) m ]
]
cogs :: Matrix Char -> Matrix Int
cogs m = M.mapPos go m
where
go p e | e == '*' =
if (== 2) $ countParts p m
then product $ numbersAround p m
else 0
go _ _ = 0
numbersAround :: Read b => (Int, Int) -> Matrix Char -> [b]
numbersAround (x,y) m =
concatMap (map (read . V.toList . snd) . filter (\ (p,_) -> V.any (\ y' -> y' >= y-1 && y' <= y+1) p)
. filter (V.all isDigit . snd)
. collectDigitAndCoord) rows
where
rows = [M.getRow (x-1) m,M.getRow x m,M.getRow (x+1) m]
collectDigitAndCoord v =
map (BF.first (V.map (+ 1)) . V.unzip) $ V.groupBy (\ (_,v1) (_,v2) -> isDigit v1 && isDigit v2) $ V.indexed v
solvePart1 :: Matrix Char -> Matrix Symbol -> Int
solvePart1 m = sum . map read . words
. M.toList
. mask m
. go' . go'
where
mask = M.elementwise (\ em es -> if symbolAndDigit (em,es) then em else ' ')
go' s = M.mapPos (go s) s
go _ _ (Symbol True) = Symbol True
go s' (x,y) _ = Symbol $
any symbolAndDigit (zip (neighborList' (x,y) m) (neighborList' (x,y) s'))
neighborList' (x,y) m' =
catMaybes [ M.safeGet x (y-1) m'
, M.safeGet x (y+1) m'
]
symbolAndDigit (v, Symbol True) | C.isDigit v = True
symbolAndDigit _ = False
_noSymbolAndDigit (v, Symbol False) | C.isDigit v = True
_noSymbolAndDigit _ = False
symbolZone :: Matrix Char -> Matrix Symbol
symbolZone m = M.mapPos go m
where
go (x,y) _ = Symbol $ any isSymbol (neighborList' (x,y))
neighborList' :: (Int,Int) -> [Char]
neighborList' (x,y) = catMaybes [ M.safeGet (x-1) y m
, M.safeGet x y m
, M.safeGet (x+1) y m
, M.safeGet (x-1) (y+1) m
, M.safeGet x (y+1) m
, M.safeGet (x+1) (y+1) m
, M.safeGet (x-1) (y-1) m
, M.safeGet x (y-1) m
, M.safeGet (x+1) (y-1) m
]
isSymbol :: Char -> Bool
isSymbol '#' = True
isSymbol '$' = True
isSymbol '%' = True
isSymbol '&' = True
isSymbol '*' = True
isSymbol '+' = True
isSymbol '-' = True
isSymbol '/' = True
isSymbol '=' = True
isSymbol '@' = True
isSymbol _ = False