Day 3
Messy business
This commit is contained in:
Samae
parent
a234a23461
commit
eedde02b59
7 changed files with 303 additions and 11 deletions
8
Main.hs
8
Main.hs
|
|
@ -4,11 +4,15 @@ module Main where
|
||||||
|
|
||||||
import Day1
|
import Day1
|
||||||
import Day2
|
import Day2
|
||||||
|
import Day3
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
putStrLn "AoC 2023"
|
putStrLn "AoC 2023"
|
||||||
--putStrLn "Day 1"
|
--putStrLn "Day 1"
|
||||||
--Day1.main
|
--Day1.main
|
||||||
putStrLn "Day 2"
|
--putStrLn "Day 2"
|
||||||
Day2.main
|
--Day2.main
|
||||||
|
putStrLn "Day 3"
|
||||||
|
Day3.main
|
||||||
|
|
||||||
|
|
|
||||||
10
inputs/day3-test.input
Normal file
10
inputs/day3-test.input
Normal file
|
|
@ -0,0 +1,10 @@
|
||||||
|
467..114..
|
||||||
|
...*......
|
||||||
|
..35..633.
|
||||||
|
......#...
|
||||||
|
617*......
|
||||||
|
.....+.58.
|
||||||
|
..592.....
|
||||||
|
......755.
|
||||||
|
...$.*....
|
||||||
|
.664.598..
|
||||||
20
inputs/day3-test2.input
Normal file
20
inputs/day3-test2.input
Normal 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
140
inputs/day3.input
Normal 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......
|
||||||
|
|
@ -9,6 +9,8 @@ dependencies:
|
||||||
- base == 4.*
|
- base == 4.*
|
||||||
- attoparsec
|
- attoparsec
|
||||||
- bytestring
|
- bytestring
|
||||||
|
- matrix
|
||||||
|
- vector
|
||||||
|
|
||||||
executables:
|
executables:
|
||||||
aoc23:
|
aoc23:
|
||||||
|
|
|
||||||
|
|
@ -3,8 +3,6 @@
|
||||||
|
|
||||||
module Day2 where
|
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.Attoparsec.ByteString.Char8 as A
|
||||||
import Data.Either (fromRight)
|
import Data.Either (fromRight)
|
||||||
import Data.String (fromString)
|
import Data.String (fromString)
|
||||||
|
|
@ -110,11 +108,4 @@ parseInput = fromRight [] . parseOnly input . fromString
|
||||||
toPair (RedDice i) = ("red", i)
|
toPair (RedDice i) = ("red", i)
|
||||||
toPair (GreenDice i) = ("green", i)
|
toPair (GreenDice i) = ("green", i)
|
||||||
toPair (BlueDice i) = ("blue", 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
125
src/Day3.hs
Normal 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
|
||||||
Loading…
Reference in a new issue