Add solution to day 3.

2025/aoc/aoc.cabal

@@ -65,6 +65,20 @@ executable day2
     , base >=4.7 && <5
   default-language: Haskell2010
 
+executable day3
+  main-is: Main.hs
+  other-modules:
+      Paths_aoc
+  autogen-modules:
+      Paths_aoc
+  hs-source-dirs:
+      app/day3
+  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:
+      aoc
+    , base >=4.7 && <5
+  default-language: Haskell2010
+
 test-suite aoc-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs

2025/aoc/app/day3/Main.hs

@@ -0,0 +1,33 @@
+module Main (main) where
+
+import Data.Char (digitToInt)
+
+type Cell = Int
+
+type Bank = [Cell]
+
+largestCells :: Int -> Bank -> [Cell]
+largestCells 0 _ = []
+largestCells _ [] = []
+largestCells n xs =
+  let chosen = maximum (take (length xs - n + 1) xs)
+   in chosen : largestCells (n - 1) (drop 1 (dropWhile (/= chosen) xs))
+
+glue :: [Int] -> Int
+glue = foldl1 (\acc n -> acc * 10 + n)
+
+parseBank :: String -> Bank
+parseBank = map digitToInt
+
+part1 :: IO ()
+part1 =
+  getContents
+    >>= print . sum . map (glue . largestCells 2 . parseBank) . lines
+
+part2 :: IO ()
+part2 =
+  getContents
+    >>= print . sum . map (glue . largestCells 12 . parseBank) . lines
+
+main :: IO ()
+main = part2

2025/aoc/inputs/day3.txt

@@ -0,0 +1,200 @@
+2411323321122342222312224225222113222113323212322221243612222112223322233231224121422335412222222422
+4374393634627266376474276644376666365551634337854472353256224441642396253632315522324245257365668356
+1225222451222221244222222345421112422214124253422232122242313321211214225223222322222222122362322121
+2346362447223272426232255735247423343522426214143344627143744364332644412341453424324472423923242241
+4317828343333624344332356413325231533723455645537553333272233534593124533344327632324246344328853237
+4633444452424644223333452463657422343454463344533344437464232454377455484313365436632542343213644444
+6556455365455556446335355545545545234434533535455544652344464456535545544433543252553456755655543543
+2454236242253243123262228234432447528122545723654124132544466336443552242932735442237229232252542463
+3332423331354333441322332354234132433234553434533443232342141453143241545433534334232323354333323444
+5225231222235263242515123382324222332422342233224224232125242233326323215332322223132222232315322524
+8756525155542645474533765414451423667733626364856454345443544268526647663634264456247285663314183166
+4213223533143214232532232442233326533514225322331125222332333335335232333223344733322213333333123132
+4434431535444333443434433333333341443342263433335345344414434443144323394453343344343543421244443334
+3711244732222243223142444247164323521231352152322321223441434923323243328332831842433322323717328123
+2244325122214232226222222622131121243322226652562226122161292324214425161562642255522111524528235452
+3512242345222325332322252333252312222225433353231451323236142514565126232212332512142543211146445234
+3346333324233435533333485334355322442325333453333433332332634433353333524333322334133343233533133435
+2753325253569637361622322322223552436223344515426352165235312555233423254225652615332344214223622215
+2343332725353513365263334352512386652245447341556553276538565223356555235674753367145332662336266568
+2221622224222152224426222251222222222122222234222242222122221242223322224212241222221122222242421221
+5845467843674698659276637564355778577476669244855569266648145654868895675856565965585758645555774875
+4633464325134333233233233339332315514313222533334226832353448153233322232151331352331636282322361322
+2257222232221422114222331122223124144132323232243221443237252236524521425222232327221225234232222321
+4232133232534336424335434234544434434341232345144351363343265239246532146236325234843342527129234933
+2243235382213271226752322124124722232224273224422222423322325224333433411244422252234422221324222222
+3322136231621143362624122222525163314634422223325323325223331338331223222123434531623222252222216323
+3341341222231444512415452235332326342236422429124364462324443433444552226364244443243242453833551431
+7775687868878687683339998986687849468956696469935677686775896865758547868487557895988386923994839755
+4323333233473565343334433562433234434333657322433353335353443544263354415254433353335343343328277233
+2673442263422244624741244521223254344255233232242373433534241455142432426143422425434221424224552432
+3934466333272261624234664377319285251636351231265565213466424275586256146333491672664123856557468535
+4345684633552456365542663644446464456453544264635655846666354633443456644643634743851643496344456336
+2242432434342524634433343324344326544444451364144328343241434444443242435444444546347442343224442532
+9647789368264877959738695976346386874666629674727833287446339968984692448596447886796598999859229889
+3434433443456424343324144436545443252345434223434342543545125434232314344333352643351444623574254345
+3314433432133324333233333343212222463326443322223122344342443332382323353133325232232323122213153146
+5574636764337436764658487665755255645527658644664558877567457597467536484675653464766767865456447645
+2553524434445145164533623333454533355534554463554545446833455245318532435446244842554481353456545365
+2232233433322323252323532323552212323533433336322233112523622232224253322682322644233422545223232245
+2525335723343753553856173734459655352345542443855425553454677258557649655435354575467533154344355355
+2535432555687563343472155386452957835442844233456369763235631276472635331675643556343355173263324472
+4644432527272353453524362324331224333333426233253434232273442212141436312136355324393365252122423243
+2222422222325123262222362232221242212222522232332262447522361268222241131223223272123554523364222221
+7557146452234481222239523223476553821454145248234175241543252476358455436551524521343344234452362563
+7334345844844374244744344233643354332846654543343182917248564482442444643437933732578244447433664434
+7442896447489544548155653343632744349447534844363253336964554397574982676235593634746456835649444774
+1384645555565453534454559654248557449455545226567275655133763545561852497554454555453446342763584278
+4423222122624322212221324534732223421444123437344152332342432444335442224353233434274623223212344212
+2442224213324112224212454252723142225323231143222132221234131324324312332122233323245232411422342122
+4262638462148223436328245533227322962262328666262228225272922773914222225145563633369235366534253454
+1444224243421224322213426123332452423434232422222425252342344435235642441243412222333334333322423423
+3424444134444424354544343442554545544444944444474443435454544445445444444444443543252445443232443466
+9998786898877777897777776779667799797798777876798587878568897899797875799796578688799978876569686577
+2323334262316222231424452333367331253424442222453622213317372326264333324433233223921212452723322252
+2321232373324223342343124234536432421224226221334623324322326233222212524232133222523232242333531342
+3235672434594743544263423436365338365364537243624473433292965217154767349527437172345241372443334458
+3127223444253382212224525455553243835432259285536122523234311553322363625632252291854232631647894541
+5885344487556888758758867888744779424775568975985788567588878866758868877858859375597765774779868655
+3332223222423422181732224244212328222312326232212814422222121224222316222682213222232222425327242422
+2225324251512523462165345212432783454127523323424212224221134353738221442622632244131111142322331146
+3323132322412823223123341333342972423228224228243353333222131536322333223224143322327153143233232434
+4445333442543543455457662365633432354336343624753323334663342555333443633232433655362333434463464413
+3533364323224633432332333223322323523524632553223213332293423332222321323436272253322253233233451326
+4323522322522514233422394532227253343323522324443213452333514823223473533422542433151212335132244323
+4915223358844423462332483263565623853444732343236532455545275533584144123445636545328533734323464355
+4735946331552226653457673641665213123454472474423431226234562352355313243676355232623431542373456221
+2552433325721261233355813413224333526255325637545362261253934343633245328352932125414221232245252242
+2432315422232215132423342724223463434544224111365222632324132234244321234277622242233642334112321134
+4222252122212535432223354232422225221221512322551222223112625525213341434241532225225743321124222324
+3427344312413243235444532324341732531233232642212425473423446385442336351424422344444383322727224332
+1322222122152222213122272222222632222132231122232222221122224122523221222223221222252222272291222422
+4224331363732326134335337373432373633224222712634331344332634326253133437373672333364433323331334367
+2844453127333213377123132313622231332413444742524422222142322232242322121722323231122332232323411143
+2427247742455844374243262443334143874542352234457424563614434327722272343374511537647524612362943347
+4222332433221422223222313212422122221222223423213221231425211322123122223312232322231234222213421443
+3484495745445763553516444684644478467496385754427444874544458466764658838945525568564447844347858444
+5323523222223313213313122221123323233122213712322332223232332313223233541423221333264511332323323223
+2222222226122423282221162341832164621257221372332112222445222295212222271222212242122323662431312243
+3424235342434523322233435223342434433422343335425433143442311423335322335332413244523232332423433332
+8777778564889874875874568697476687768777889787768667656787967786675878647839676785687567736653756578
+2326532224232291342445324264666683336223621423343552525133664255352232222462233466346342434223243225
+2325135222625222222524142232421252252223454226352632425322242443442131212222222232232222322111532233
+2124143222221322421232322223222411237224221421222252322512224213312212342126224153313152222322222123
+4177137224732423223232522228221432522225222328222232827212223427455238223227337321222422224322232211
+4313833344243333233533333333233223323423332323332223332854323331333343322443331322331233333331343244
+2424326343334422233333313643364343332423333333443333243343336342333414333433332522133333323123431432
+4415343445343343334344323334154667433433333263433342832334434333436342234325344535534633455343253355
+2353214333252244242252442322233325432633413232344332522224446322334233525554323222452232534235338242
+2214432321142422222222332345324632232223213212222421222322222322121342242232232422231132322414242222
+2332344224153226422241245324223232123226632412226242214441248644443422348444251445324224233483424225
+2222222232134232222214232242213222222111323221221212131522222121223132222231123122222222222222222622
+2332624522332452232266326253732323323114633335232721423242155263164422222324642462352632623334232233
+4893758558421238154472288964552863628125328325335656917422224431622266273242382552842137327575922355
+9288334221543334644364338342327453696347234322615233425432947942434412328712534823732223724938544242
+2223242263323242224132322222242322312231121222226221322223123243235223224432241222211221214221222254
+2333332324354343333333423424334331223534332533354224344234435523335142356325231552333134352212531234
+3333212133222223222322142232341243222333121622222332232123112222233224222211223234313222323225323334
+1339422441442438414335354332254253482424444347732222232144168436352327241251325537524148346414234544
+3214232332223222712212322223222253233232323222112374333222122361432323323414232218216123333241332332
+7376852775455653453756374266548453656636551593344636653353393325323484337333454275423475345433754342
+5456375348774363849567523636947633236773444233476753747556473333269439533476534447753747577735247393
+7255373284563888423658462462783368552435564755375425542442326634667347243375646853335684143343375225
+4644543524434444414543344253445334426643494424844744434453454445445343444444584733434545443784544247
+2442536343333183833223323238644244655633433332334421333132224231362422243274337334343231764233234322
+2346341652423232322232366323253352343637222222223434512231353332234332223634583332431224221552536324
+3221323227224361223432111243332232525123333233221331222322232236322232223231233311223222325222121232
+2112212123222212222221222412212123222122322223222223322122212222322112221221225213322123232222331222
+2226463753732364233123373383375421325368322323231666343371323232334433322333372323435432332412262443
+3381333234233623336213453454554224322333524654356342245652346433445467342242445545934113266233461434
+5444769776743554655362564277536476776262259629322726623336874259477622276372563346625236422635664225
+2323222224263442342422434224493223271222222443422612232132321537222242445312242423113233248242212412
+2962215664231229984477244542222433444293444436212418179331321324844349441742426244352228395622421193
+4733343563344362352332756773436533734635746734762335744733722462364422453351364364236797571325463374
+4635432425333324231235253235435144364235343463245435235533445553435352343554455424223125582241434124
+4452733334335964331543422343413354842437344553345543454633217328364133343743434355645645353365354544
+1282232212122212223323232326225322523212721122222221222221242322313222722222222122322222232221232222
+2555344232262232595273624923322262165152643452432243367551613442424332454743364455743574547653344274
+6556753563344325852334443523634235573314634343533534353422346383323325341323447133433334773633833733
+3533433322333412436334212445633632411711232432333332314435325446222344422383433325362233242413532314
+2122321662546252237112131223233483322166215653343142232357632244358229222633221123322232535222273262
+2324634424333314252213622363242223213433412373423224224242543364265452444315332329213224642532162232
+3222323432223312222322321212222222112223234322322333213121232321221222212442342312212333222321223222
+1235446254141156783558524311631758758261114366423232122234842762763172363446181226884551126286681419
+3232222433322234433351543332334243123444322223232132322222364523244242443422411215222312223342342223
+3354761222336354832349364638443833533635248323342546954223245267383452839423523233322338248336733552
+1545334354433442573354434434344433443534453434445349835247354423725343673215353577455233334423345243
+2321222323712212231223423212251312222335224422141222522212222425222262143741242272272232322522122142
+2342242114362444943462242124333344326123473431244314244355214225324242363153473138462332222138254332
+4344444422444434434455144243445144443244424444424344444344541343333543434243245354444324344443444445
+3336314442922733952223234933444343143332633242352338332636233237233633189423329646474233353265352543
+3343452424442442433324335443444343444233445433243324454443334423424444333333442494434335444442443334
+3725232765261442232112226424465222226246244223612626232323436332327424272246632243425642252323214442
+2255223121523322251242523234652134221322332231324322213124545744252251226424342232312223222435543534
+3255362846561385658376892453813675894364846346664714396594573754846573573342274746786772565467449778
+2332333232422634223142123218322223232232127332223128112328222332321322634212622372262221131232321222
+4436622412422113275522112542242651366825122664442351817456321331416555355283682542222637223275526724
+4333433246222222274423412122131131422422217372434363233212423624421522244337321342234217222322242327
+3213452232115524224673422132434219423511442122643232222222342322332234132224442223124212145232622233
+7234367312321414433342444322333215252242424342423254146322722484374242267726232334634312443626731544
+1244343443244242343113424344232131221333321344332212442333133123233331432122412332142231243113356789
+5443242444353433253444344633331353474432344335633344475433363347464614374545163343642343252253854233
+2222122235222122252212223222222121232322222221222223222222222122211222122221222252222221222213223232
+3637363542544217552324212341231344252234354455243533135232554435335522453569234436125456253524142334
+2314322244232321252222223133353323323712712254232421322235352232332323222126523421332232232225235224
+2465543273268453356333673243332168362332566386365273734565425212362363582333627454336782533757332332
+2323253241433432172213123735424736253211331535243234334112332123242234227642434432414332232626242221
+2335353524422343439539643433353353132443733337533331552333233332331373334633423375333353333224533351
+5222252226223222222141212222112422221222422252122652422132722121222112122222222233228124222221242252
+2526266554543561523316434322214115234451334352342461252324535442553224662122263345221345444234532444
+5685422454574834553756564754446724345574235224556354652452428243314455235257152545572423222354478333
+3247545323421442242533226541234341422232343222432437117353832471212442275345134267353514213332432444
+3334354457654465538344253364347439345445456544363444548342554734465654425543475542554443735234555442
+4535112412425522355254355553451142133142511113152134124235311534312425151211315333222414414324446789
+2396423443273432323334443336252233435133444433434935443475464333434732244424484644348334634266443132
+7242922784617822735243562726883725995395377966662476245665643685465589254276335669765533962344389943
+2333332113347232373544332653352323273354492233242343332273354338331337922328323333443222239223321232
+4432233343312423233222313223313211233322313312233422822322311222234132222233335413722433323343132231
+2536444553154521673453439545455594274343422644552255333426345833328457831333731454443646476275444425
+2543243422222943222122334245421232324233422221222524422223232254413283332412346226343332332843145323
+4352543468552422773472745232244322322632222272242242523432664278763785561629457247523286743132444632
+2123372342523343332322321232225223331332232332222232322222393623222222223224253723322322332223226322
+7895494958495688948463479845495844466858621696454727565994833646758678682355684232893887826188866454
+4252842345433143434284262422534443344434464255214234441664422433683333344345453322534544445437443342
+2321356612253378367363322334612236342224723262363443363213563375122133823313741233723327333512852237
+2221222331343265232223133223233221323243222124231223322323232423213322432433234313123321132213343333
+4223534362622252833528762621436261343353635332353247254355433341436266534324434336454443354523553365
+8447756877685456675456878865665696566646564454665896756986897596456464955956674948865678589676556456
+2127247232222221434422213433212231224323424323251255324432224322354259254233231352323223222373432346
+5111151622641424445544324623266123255233246133434433531146456214551613345535213614425315616124515789
+8438112312854415525962265422254525539424427795234865554516156552465253355555965233594524135326551626
+3221231312322325313143323232113422231122323332512324233313221233422332544221232254222223323422242323
+3243332847352483223525642223344532223223343631123364632322242114233423444537233334713123643344335356
+5296553832455237531562682243523735235388532722326227643354253753383858653953588682543232332287677323
+6227234214544443232237432423332228223452325412522222454624213245422621323235442254324244275732224414
+3414473634321726215367567754445252626567633635276557157177345332441711772135465755435334571114526589
+6466442524966426636453662356496516156625625253451441643645325555746555556654656445755262525547525658
+3233423356334448412223522271552336322435222424423223325131223234315235332256333423223433226332123313
+3344442536412224295332314233433344223124223444654644153233352432543344465663244424153414245422234324
+1553333169525813122137359334425422153552233332343422583254231222232365257323442244124522232234222215
+2274947154553574552676633476465674566554624654874564944484575255887656685534674647696675355835684716
+3223222332321412342223213233264134231223131322132322323331223233332332233323323412222333322353321231
+4281223428222313222442254333264464537432834437422341144544283434431223345334233723482422423236341333
+1231222233222232232232335112322223265123252212432123222243212222152221233316214232221122332431352223
+2633363333221326233443333232323233433323332333332232333333533333233331333272432222222132332323334233
+2573527274483371427233452221327374344535574546354313343282985753775224833355565564214453522133414234
+6436462138724522148836177315738443622432212483443743953222335454465647359343437539434643443325424623
+4334425325543746335537544575477463555643743543374316574333546534445345464543374144494646263653755734
+2762226223233222351453431252252443322247323225263332617441224242323132222472143122129252342424445226
+1322142232222231222223353331242382122224232212133123122222112222121223223222242221112133221312221124
+3326423624132263275232222252221222212122422527122222126122141323223222223422223442623522222221142322
+6265792825456442242553446347532233522436332144222223745124354334236256253542434339538444334443552455
+2755547564243384334335844353333725453372344218533182345134222433543533544333333831544355443535255338
+4666466462666765355556775566656666646455636655645365555344466454434466567568947453654466565466634464
+3334134333441136543233533233233343342336325343323322243434163422222333343424333333424322342343233341
+3339733774324426683659333532251335334533529321433123636337343143126953834483896334333933423263662384
+4646234445742253657636217544536466345342565554465364345449254555245423552663346254332233337444144434
+2324431343543344443322222212775234334313412212223452223412144123444221524333323312347223423353122242
+5986866547866679949776678996656696885667784888696769665699876985995666886767678766676769468667876668
+3533343322234335232423222243221354223342134232233161332223232213242243331326423333333123122222342122
+8879295676472661376616867284483222277533464815636138425232993434286212329432338327371364266252457516

2025/aoc/inputs/day3_test.txt

@@ -0,0 +1,4 @@
+987654321111111
+811111111111119
+234234234234278
+818181911112111

2025/aoc/package.yaml

@@ -55,6 +55,15 @@ executables:
     - -with-rtsopts=-N
     dependencies:
     - aoc
+  day3:
+    main:                Main.hs
+    source-dirs:         app/day3
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - aoc
 
 tests:
   aoc-test: