Completed day 03
This commit is contained in:
parent
8501f5e48b
commit
9a250d6e66
GPG Key ID:
BF6CB659ADEE60EC
|
|
@ -0,0 +1,2 @@
|
|||
.stack-work/
|
||||
*~
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
cabal-version: 1.12
|
||||
|
||||
-- This file has been generated from package.yaml by hpack version 0.35.2.
|
||||
--
|
||||
-- see: https://github.com/sol/hpack
|
||||
|
||||
name: day03a
|
||||
version: 0.1.0.0
|
||||
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
|
||||
author: Natty
|
||||
maintainer: natty.sh.git@gmail.com
|
||||
copyright: 2023 Natty
|
||||
build-type: Simple
|
||||
|
||||
executable day03a
|
||||
main-is: Main.hs
|
||||
other-modules:
|
||||
Paths_day03a
|
||||
hs-source-dirs:
|
||||
src
|
||||
ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
|
||||
build-depends:
|
||||
base >=4.7 && <5
|
||||
, containers
|
||||
, extra
|
||||
, megaparsec
|
||||
, pretty-simple
|
||||
, text
|
||||
default-language: Haskell2010
|
||||
|
|
@ -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......
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
name: day03a
|
||||
version: 0.1.0.0
|
||||
author: "Natty"
|
||||
maintainer: "natty.sh.git@gmail.com"
|
||||
copyright: "2023 Natty"
|
||||
|
||||
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
|
||||
|
||||
dependencies:
|
||||
- base >= 4.7 && < 5
|
||||
- megaparsec
|
||||
- containers
|
||||
- text
|
||||
- pretty-simple
|
||||
- extra
|
||||
|
||||
ghc-options:
|
||||
- -Wall
|
||||
- -Wcompat
|
||||
- -Widentities
|
||||
- -Wincomplete-record-updates
|
||||
- -Wincomplete-uni-patterns
|
||||
- -Wmissing-export-lists
|
||||
- -Wmissing-home-modules
|
||||
- -Wpartial-fields
|
||||
- -Wredundant-constraints
|
||||
|
||||
executables:
|
||||
day03a:
|
||||
main: Main.hs
|
||||
source-dirs: src
|
||||
ghc-options:
|
||||
- -threaded
|
||||
- -rtsopts
|
||||
- -with-rtsopts=-N
|
||||
|
|
@ -0,0 +1,28 @@
|
|||
{-# LANGUAGE ViewPatterns #-}
|
||||
|
||||
module Main (main) where
|
||||
|
||||
import Data.Bifunctor (Bifunctor (bimap))
|
||||
import Data.Char (isDigit)
|
||||
import Data.List (singleton, transpose)
|
||||
import Data.List.Extra (concatUnzip)
|
||||
|
||||
mergeChunks :: [(Char, a)] -> (String, [a])
|
||||
mergeChunks = concatUnzip . fmap (bimap singleton singleton)
|
||||
|
||||
numberChunks :: [(Char, a)] -> [(String, [a])]
|
||||
numberChunks [] = []
|
||||
numberChunks ((isDigit -> False, _) : xs) = numberChunks xs
|
||||
numberChunks items = (\(a, b) -> mergeChunks a : numberChunks b) $ span (isDigit . fst) items
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
lns <- lines <$> getContents
|
||||
let len = length lns
|
||||
let offsetX x = drop (max x 0) . (++ replicate (max x 0) '.') . take len . (replicate (max (negate x) 0) '.' ++)
|
||||
let offsetY y = drop (max y 0) . (++ replicate (max y 0) (replicate len '.')) . take len . (replicate (max (negate y) 0) (replicate len '.') ++)
|
||||
let transposed = (transpose <$>) $ ((transpose <$>) <$>) $ transpose $ transpose <$> [[offsetY y $ offsetX x <$> lns | x <- [-1 .. 1]] | y <- [-1 .. 1]]
|
||||
let zipped = zipWith zip lns transposed
|
||||
let chunks = concatMap (((\(a, b) -> (read a :: Integer, b)) <$>) . numberChunks) zipped
|
||||
let filtered = filter (any (any (any (`notElem` ".01234567890"))) . snd) chunks
|
||||
print . sum $ fst <$> filtered
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
resolver: lts-21.21
|
||||
|
||||
packages:
|
||||
- .
|
||||
|
||||
extra-deps: []
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
# This file was autogenerated by Stack.
|
||||
# You should not edit this file by hand.
|
||||
# For more information, please see the documentation at:
|
||||
# https://docs.haskellstack.org/en/stable/lock_files
|
||||
|
||||
packages: []
|
||||
snapshots:
|
||||
- completed:
|
||||
sha256: 7d4b649cf368f9076d8aa049aa44efe58950971d105892734e9957b2a26a2186
|
||||
size: 640060
|
||||
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/21.yaml
|
||||
original: lts-21.21
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
467..114..
|
||||
...*......
|
||||
..35..633.
|
||||
......#...
|
||||
617*......
|
||||
.....+.58.
|
||||
..592.....
|
||||
......755.
|
||||
...$.*....
|
||||
.664.598..
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
.stack-work/
|
||||
*~
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
cabal-version: 1.12
|
||||
|
||||
-- This file has been generated from package.yaml by hpack version 0.35.2.
|
||||
--
|
||||
-- see: https://github.com/sol/hpack
|
||||
|
||||
name: day03b
|
||||
version: 0.1.0.0
|
||||
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
|
||||
author: Natty
|
||||
maintainer: natty.sh.git@gmail.com
|
||||
copyright: 2023 Natty
|
||||
build-type: Simple
|
||||
|
||||
executable day03b
|
||||
main-is: Main.hs
|
||||
other-modules:
|
||||
Paths_day03b
|
||||
hs-source-dirs:
|
||||
src
|
||||
ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
|
||||
build-depends:
|
||||
base >=4.7 && <5
|
||||
, containers
|
||||
, extra
|
||||
, megaparsec
|
||||
, pretty-simple
|
||||
, text
|
||||
default-language: Haskell2010
|
||||
|
|
@ -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......
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
name: day03b
|
||||
version: 0.1.0.0
|
||||
author: "Natty"
|
||||
maintainer: "natty.sh.git@gmail.com"
|
||||
copyright: "2023 Natty"
|
||||
|
||||
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
|
||||
|
||||
dependencies:
|
||||
- base >= 4.7 && < 5
|
||||
- megaparsec
|
||||
- containers
|
||||
- text
|
||||
- pretty-simple
|
||||
- extra
|
||||
|
||||
ghc-options:
|
||||
- -Wall
|
||||
- -Wcompat
|
||||
- -Widentities
|
||||
- -Wincomplete-record-updates
|
||||
- -Wincomplete-uni-patterns
|
||||
- -Wmissing-export-lists
|
||||
- -Wmissing-home-modules
|
||||
- -Wpartial-fields
|
||||
- -Wredundant-constraints
|
||||
|
||||
executables:
|
||||
day03b:
|
||||
main: Main.hs
|
||||
source-dirs: src
|
||||
ghc-options:
|
||||
- -threaded
|
||||
- -rtsopts
|
||||
- -with-rtsopts=-N
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
{-# LANGUAGE ViewPatterns #-}
|
||||
|
||||
module Main (main) where
|
||||
|
||||
import Data.Char (isDigit)
|
||||
import Data.List (elemIndices)
|
||||
|
||||
numberChunks :: [Char] -> [(Integer, Int, Int)]
|
||||
numberChunks [] = []
|
||||
numberChunks ((isDigit -> False) : xs) = (\(s, i, l) -> (s, i + 1, l)) <$> numberChunks xs
|
||||
numberChunks items = (\(a, b) -> (read a :: Integer, 0, length a) : ((\(s, i, l) -> (s, i + length a, l)) <$> numberChunks b)) $ span isDigit items
|
||||
|
||||
isTouching :: (Int, Int) -> (Int, (Integer, Int, Int)) -> Bool
|
||||
isTouching (y, x) (cy, (_, cx, clen)) = abs (y - cy) <= 1 && any ((<= 1) . abs . (x -)) [cx .. cx + clen - 1]
|
||||
|
||||
fstOf3 :: (a, b, c) -> a
|
||||
fstOf3 (a, _, _) = a
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
lns <- lines <$> getContents
|
||||
let chunks = concat [(,) i <$> it | (i, it) <- zip [0 ..] (numberChunks <$> lns)]
|
||||
let asterisks = concat [(,) i <$> it | (i, it) <- zip [0 ..] $ elemIndices '*' <$> lns]
|
||||
let gearRatios = ((fstOf3 . snd <$>) <$>) . filter ((== 2) . length) $ (`filter` chunks) . isTouching <$> asterisks
|
||||
print $ sum $ product <$> gearRatios
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
resolver: lts-21.21
|
||||
|
||||
packages:
|
||||
- .
|
||||
|
||||
extra-deps: []
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
# This file was autogenerated by Stack.
|
||||
# You should not edit this file by hand.
|
||||
# For more information, please see the documentation at:
|
||||
# https://docs.haskellstack.org/en/stable/lock_files
|
||||
|
||||
packages: []
|
||||
snapshots:
|
||||
- completed:
|
||||
sha256: 7d4b649cf368f9076d8aa049aa44efe58950971d105892734e9957b2a26a2186
|
||||
size: 640060
|
||||
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/21.yaml
|
||||
original: lts-21.21
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
467..114..
|
||||
...*......
|
||||
..35..633.
|
||||
......#...
|
||||
617*......
|
||||
.....+.58.
|
||||
..592.....
|
||||
......755.
|
||||
...$.*....
|
||||
.664.598..
|
||||
Loading…
Reference in New Issue