commit b604f5317dacbd02ba0b90923e4014faa0eff8e6 parent 2a11eec1fda46547300e1147e6ec24353f273c84 Author: Martin Ashby <martin@ashbysoft.com> Date: Sun, 14 Dec 2025 19:30:01 +0000 Day 3 part 1 Diffstat:
| A | 03.input | | | 201 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| A | 03.lisp | | | 23 | +++++++++++++++++++++++ |
| A | 03.sample.input | | | 5 | +++++ |
3 files changed, 229 insertions(+), 0 deletions(-)
diff --git a/03.input b/03.input @@ -0,0 +1,200 @@ +4123535244222342322334342233754335452333242522124322242423331132232242422443224231234323332243364522 +2633322623185223292633232342336241353472323432337144252444247533312232433423423228632337331231223633 +5475665767681776387676746666636737456375666764936466526665745975592886647576766377678785567245677555 +7632362525633465259457646556334542742966514383538566582522246342353467256715675721556536637573534256 +4433233445334333433332243332243333323333244341233329233322351213324333213433242123334332332622363223 +4243433413423442221343334425453334333433434233464324443433323353143434343233444343243332444351232343 +2244326526434332132423332342213512442441234234442222233422443424222333232422426434522221223322522245 +7552753585246737877374567137454634234388987727862338637768474745434466841859283582327475573893743259 +2241222222231222232231212533323232334312212432322332332233222323327213224222126322321413722323911223 +3532454226335374343424354554333423443341363535425543343543655442324344447342345532445333265543333335 +3232332242149222241234322522236233122574336183125131223223232321262413322123332233225425232962235322 +8125212522332333622333252222232223523933213323222232326253213316133122215222311121232532213122332225 +4213421222223222321222222222336325352222232453322222221323442222223125424122212245213313222212122225 +5334461553344855755343574325446439423354442625522259645443466555576462594527536645444455455249554223 +2123336322221341422232312334232266726219822282424722575222224253223332432332272212543628152335245622 +3422233346243323312242622313432412331243222314242242322293431213272232322223443223223333247422222322 +5313231313211223322324323226543263333223336523337226221324235426333233633132225632633333323263532573 +6622534522335321334515142124313633242565362513322341352333242234312354122232333553424661336135212624 +7166421363555335544466432432362623143484134322444354434544434244534573533333533544324446744422341266 +2222222322211232132222122321122222222222222122223222232222122121232221222222222223222222221222222122 +2133221223122324122214223222223122227722322133122312113222432222243211221212221422233224231322212233 +6755467458966567756388647684512878538587745559755574766695377596957857568567687769566869998479186465 +3233212332233222342312223433432233133333213323334223233133631332333322322231232331133322328233244332 +1363435336345392654232343257313335833253323242331845333583431843332213453315344221233325383333353532 +2112222322511231223222222222273122223223321312325116222212222122322124441252224231225522224222912322 +4545554245363432322432536226523523542555522244345236551542344245354455413442434234453754723554525343 +2421232121222312232221225222123223631122232122232222122225221222212332234222422521226122232322321225 +8546645834547533353528463367683534346267525543278534854735663525462843366253842844662432625486333727 +2264522533234626636145612453223792252213367243222624235422444254332254433431643536423256462532562433 +2233162325342522354153523221324692221323524212334456233124323342143256225542411244212432254451331534 +2142252231222181212213222232122223113222232232322222112223223211142122212212224215222232221224222242 +5361323343132722412223232331322232123253223624132315212133134241333232322233513328354322144325533562 +1523232323233333721363323131253133633333232333632124352334213542236212324323332333432522333313333343 +3333231238443211314752233421332832223735263224226213232235323322232423323253356133311322425353233353 +2222232321512323222123325325142222332222221722321223222121222122222222232232123321793232226222322223 +6372344524222334432221342221233332242212423423123113424415222343423844729382534722641223343222245299 +5924221412112532222322412262222212314312211272221214222411226252222315242425264213252222222146211223 +4645443437444441244744344984454477347434443554534434876544644544414484244773443444333143344446573485 +3244263333413322233344524443232221234153643196324233332222442233322233635326443331343121333225532334 +1234242226225323225222314413523434231133434226332326311461263335332346224232414264332233441332122321 +6572566528663367756687774578776774544475727647766478434666773765544674763244688736454757677578586662 +2323211422223226315215423224232222942243424712762222912522122322423212141231432414212423526522232221 +4735342245446523436442542345333651955444348563333574342542277344474537433254323252334435354354362334 +8226544263445642272685222362225224542616356312677266241351332793932854742268648374651388523635342428 +2279432443463333336343334731493133332324447358315435334123433324423373372334334343754347332325534836 +2222345445341444413431634133331342322242274222315324314241314315445413124244224533421342212213232434 +5565355354535569766363555472266693847553743676886559457543553866637854533376759565656575343554545554 +4333273922122343345455323573176591325244122183535355352133344325343431122342637223342282333331433656 +2335454335343165533633314633465433144646237324345343353436334352355453213325653334335337534631344232 +2423124712223137272233433323222253433333111632133244334222227138237227324323223422322413224244331132 +1211433423113414312241444424111234313312324423242123313441113242321441141323122423413432431112456789 +2122422273224235822222475222322192211223222248492622225122512433233852215541226224321225222213592542 +3323252224555226326222621245233133332234232131233144322216223223233342354432323213223333133553634622 +2658674799156464264325469365335469693965472355573513177994449462929446329627837246278525756945299327 +3334232263232233547754333436344633221334234433333232453263333343334335143535332333543543342133333334 +2222222195251112221222222222222221822263223562422222718682132122292224726228526122351222223233212222 +3324761443343232675424733326234763635364353437624277558332767274373539532447335573363538274333366336 +5266543248464426617834644444631656265364652462761446446335514465623255457454535436321453666236364865 +3334532239512142974443442344224442122414746546144634412733923463523242241221224494323124854224214423 +4632334442455244443644654443463244443642447445334634444324634434342425236443733646434234433234444648 +2442755465666657632333543456333654533643335444635324646676333433489536465927656345435566485652334273 +3335328375343552445982334542372133352233453564842332433323375554525331583543334454245218462543232333 +2473361344424391142524624254332448347744255323445344751363253359643445223783363243433227342212534634 +2224222221226222423223321232323211321321231446222212322229222211131432222222212122112222222512532131 +1231534434946333372682223365337376444223335423314282632346291332668736334323328144532763433759368151 +6362232131534122252524472332832222121232231734292222331534522352422125522623335432265233252263343224 +3273232222222426722222122734342532211544564235226243122262232744752153323623226562422112311521122428 +4253355545523223522425252536317752525625335525537524655274359222156255642524354253232455222455534324 +1246431484422332422355242135422221314546257235222455332123222517523351323251515514222313311144413249 +4473573332363132433732253443336645217483123234373453332723644275563331673262234216624432273371463443 +2565554833327454453345352333522154432252532354332534333525533453533244433353522343534231334384533542 +2213211222221212122213225422322225121322221322232122142222222532232222222222212222222223312221222222 +3332432331222443123333334333342313234334333233232223322334233114333233725343334332334314333332333333 +2321211223242212232132242522221322122222222231214322222121115222222222222212222222223312322222123332 +5227333234334331332332431433312423343212332222363423332323313333434423333323232342333323233243522322 +2232255232324223211423236411323232322242274523324342524222241232124225333323215222214152332352622223 +4323234333225223543423534234261432334333322323335332233423235654435313326732385323343228322434232553 +4546555947662633338379538197438285823783445883343673589133394143234333255578874264374994824555488565 +3212223254212123222433222242222242222224212122211722222222223222222122222322121322252243232221422232 +3221332244324333254242333352324323323342433433335443323521333133333333234335243243332325414323335222 +3224312212322122221324311222222213324312322223323223222222222323222321312222322222342232322222222322 +2232632224222242213371225223361275553251239521621223421221221632162323515122492962311223122246332222 +3527222172772117275422248222222245127236122312431242722253312637227522222214813236222251232412762222 +6423442434242434624424643442433121353365444233244467534544234353332134443234544445355435434424556242 +2554142334493464324644455353438244482534231323347543595372272135934212444328341554775265666163455432 +3535345323234553323533335242333352325232323525235455433332444335432346323243423133332245323342126463 +4432434333332323134322343433333322334323243332333423323322134432323452233344332443341232253232324221 +3424253333313332123333326432233232232334342332344434434333322333433343433334335231134332656332233338 +6555259644933388365687836754374374654557525665486583654345778456457448458538538955655745337378573344 +3222422212222522412222222222642722422222222231452222233232232222144222462241222322312212322463213412 +4345363544344332463832526533353233236371334344354732436438336516523331331463321832516136623833344354 +4242727234122252352152611261384322222733212862222925523558641612522278526145134326235462228221155292 +3451152443244343333333223433332344355325334446363344341323414445432543423334343154433623235441423353 +1213122222122222321122232222321113222122121222222212222132222222222252222222222221212312222221222222 +2472334335622634363223133584554153439254473234573332982542452434634743412523876337364353463434413347 +5323631912123338123122212212552222342323622323324273281235642225624328222561712614333211426223238232 +3342334345474445262545673585836645637748826563354634493774787534576874254515351443655934645454337495 +5456342643763443434424644434555444443745453927244263564144443856754433549345443745144914334443549434 +2211311222222223212212212123322112233223422223322222222222222111222321222222222223222212222122121221 +5497234534434333543444424453645434335462234333423334543434344242537237573453233523342536332235452443 +6463243514633634315333243364437441457235423344552433518737345434568535645337464833433248544636313543 +2322234432454425322142235742123731213222723652447182322242122252241154427244445453612244255444512516 +4423634244542242353235351333524342335464424442213514426321344345235434515442334135343322644143543731 +3334343843346525553424333332242322833233223323752514377335231333322333662343333343428338233331243433 +2416222412364552224252555124324222228243422322665222172275526255252224332665122272625526114235985532 +5455326465528456745475466754887852467774868453444677676873462943737524786478314766487394975643329276 +5211352423325262392332513722337472352332333232233233336733343651336446738321413336333323346322322233 +2411223622223333242444224255222257332232433243444423325125323224242322341322212235232542252422513141 +3524231322322532121233124122224722133341422244222523353222242721442242234322126124423324137221222544 +2222211232221213272442225313323143435125232135222132121211121362132225222372225333222222121333122342 +2953676331373325333834327424333666266647457433635454536374333298325335652335439973557373893627853353 +1432752832222231422223362323523332325383322222223235535732512331233212312233423324432432211252322334 +3342233322313236515222321233324322323312374123233333223332331332313344325432223221333342313434321232 +3122242281221232322522122322122232223222232213324323233322222221322241213221213222312113221232223122 +2343265566665555144656456452425555555339636656446545663289456334442346451524343555226425555234444165 +2242221124222414522423435122292274122445242221454212223325322146222452312222332333222225162312252212 +5425644457595459357554545432343944443544434342665485524449426644635433645544355954835843563455558477 +4668463854586666326482374659765445363859496934437454546383758766822472796539945686864795639582364246 +5914433526374322244411222225444466263445344364548594332436535435465351574433255654566243644344635334 +3222212322342222348152325413133313342333111222232323243332133353323526333322224341222233231632321231 +4324342352523243532322314333333328443222432334431753362332235333332232333231334232332337214323313333 +7547433433456337656339897997445853538398838445628857483794489751594279539893686779745735634974474535 +3252152525552363645424441416524444252526521256522445355525524222452226255524551227226463432455554432 +5322614462343441554253133462532547267322261232122136422833442324452222424341254542443573446414222753 +2124233332523445213234124312342431222231232332525322413234323422323322542222312242442342312213322222 +3344643434564464656545647353655685254336546644456635444534634486245564546532454446454653546453644355 +4181238682788373373323147654226413631132581235532152551277411428588616711264368256744343557688573559 +2223223232112253222333223522224222222222333232222133513222332223123322113222233235312232422522422224 +3312423222232152232211232422213821314223322242434222241432113324515321135122122221112321543232322226 +2312544434412474245622122742225216225132227424226142245453626242524193264424257135316662623532254514 +4431251523362343641413452542542532662423234243424243216553484482423223458424442424412431649314426828 +3243354232444313251412233472233111344323223733737242263221243122133464224222121533172243642234242244 +2629622332262613216633122361622252222522533531227311321225222232223363122324216232222122522242261283 +2221112212121241122221221212123223223122322322322212111223252223212224222422134212235232212222222222 +3416625453616723417335222322526356542552444565673532332523255556444122442642223594743515646265627652 +7337452415356165542355373425554535344744345754123535543672412344252254763345495252535552343375135555 +3334933236338315232463263322333334633323233363333362333616234123122213643373634363534333664454523433 +5346225334334335453552348444542246554434525273437335455454323343545334452253854273544557833355135546 +1122226222228425222522492536226692863521221132271221422226222212561351222422212222321232222122211523 +3246352444434332344442242434334443423233122344335252332433523342224324643512232623434241423344431153 +2222532232231752469672329242332322423782221633322421272233242231221223294352322193543246222223363522 +3223212343233246236322222333233323233514222232333323333124232452111222256212332122432222533432344525 +1243222212312212422242321222241242221212221221221221122222222232533221962222312122322232244223122223 +5232254236214223732642463336223326428312832312353222245351332452353733342223423126654237252332373323 +2212233122323222222131221222223633323122223225322232222223322523325122211322231223222923231133123122 +3461323332333453343523134133244433343463244232433634533333316343232443344333334234233334223333343443 +6233225142233451533635642225335242124232345123523343343153644422241636322233224322444312224143232312 +2424421324322323234241224422232123233222323342243323421323232342331212222232234221321143122426131412 +4424434344453544423214332433744244343442924423144434314543443333457233433444443644438444523213244443 +3151227372252573517154737424772756533161445576113436722412126112161732537417117235166275254712722789 +3333255273233323264335223213563236341323423233236122632344542211366134523632322135342263456653442543 +3222222333222254223122322132333373343223332331223323321334331333242323223223133343322343312335333532 +3734442343334433342343482324332344333334533233371433264465423392422364184453483364213343453347742543 +5494374365973844536443397385644688354537572489575438345545885523877337553453437846655477545473487466 +6538533343474263244614552594445563493616328433243299624329453739463346444928647332543794837368322434 +2323325143223234532234424125223233322323432143343362222222324322312513645143533222262143332224332634 +3333333333383745443323633332431333323332332353363333285582222345633323235334337333245333273623331323 +2443465453434336447444733344434344343366226444444546365256443347334464454553434334444444434323442664 +7664524346225434553746553524444364734332344452444535415342642737242134746334353424333735457434554332 +1336383233462352728763324552333326212465591423333242222194335323533234612522432425346236731532324133 +3242244441232234325222422425524642442121123225322463322263333353333236133523222422322333123415235522 +3416274445826343546354448424333365155173542522725873435245656545353778756354353264573237473331354334 +4322222432226222264322242232251222122322222621222322221322222614236237913232222125365222232221222221 +5522342322221232322233123123822123243322852321313239352333333322222432223132232222122232242223333512 +4442524336644643232523522325634362422251426644433232545313265236121315451535331432634323624534255789 +4438534424544326645726565555625333375144264933533352434356533252444345535546344233314445345535633433 +5147455475755334345344455454555254444244753554364444424433443434254563363335233364643435356323734132 +4241231273336222212243231534222523221443222222243226321222543122222221216122332232233254334414212413 +8598797868877788898468886898888986887689789997757879787886987898795889898968875959676869787877898796 +1232348773185925332514992724231436224435524927242912122163362735264433981423522258359278482222147252 +3243444443114243222331222433344244343153124332324532222345223411333142223223232413132424221224252242 +6562382824656445164595456565665592647135693556455636853464453766655255754625725553642455756656634435 +3745776878882456625465945877663949728377985666995558945599745778899375349465769557657525354786879478 +1544433223122533233136233431544253125525132452244444715324241653473252442282434642242455335552914325 +2342523224213221222123212222232442243222222222242222146241223434223221824142262113121433224224122242 +5122331222122322132222642221252212623234421325222242322341211222222417323221662231512249521222222222 +2223223222432254123632224222422682192542313223234111372112273452122321212333222982231431217332425283 +3324332355221223335323432333322243242313322233423386331233344333334333232336334233233331332422231321 +4535644345343434334245344644445249545442344344444434444444433335245345544543433754343444432515123244 +3313423241333331423432335234323333333433535352224323532153213422341333554334323224133223424333123144 +4334133352222434323354352352353247234433324836235432253212333253512335563323422333343353332263412523 +5434426353552452453535452727534623325423334223316248523268633616425247554642144844222535424583333522 +2322224242244222222612213127225221522243412426432223422232122251322213425242122272242232222215242412 +2213223422423332233123342237121323422353235334345232412353223334322132554333322223522242424335211323 +4371442233324643542246664124244324342224334146342325436644615436536456346334344165215334243464322523 +3264343123324343232434122432432323213433223362333233313443145521331333231231533343333322313422432333 +4522422432222223221531522242222242222224224122422222312125235221632241424522414423432221442223322321 +4144652534335223124243341765332473435634334835552343133333364533354554348366554883544366245325364353 +7667387777757586466655765476877665796776877669568696664977687639656676647777772888988877777565768566 +8433445444444444454843434844694463444432448473444644384448436464444366446466434644244343244474442244 +2233244522432424422133254223322653345353243243231432423311443414212324223233232422343113234231223224 +4535532222587588637782224836732114722933376624272614245222323252472126344112558312869522581234272287 +4325232122321311263242323253253922332257721248364222261664422351253252263546253443432224351312432213 +5467865898223479999864734499896866455668733499685666699677652879598228956666695484856767863686659633 +2546542517245517163263455414334467536564353552546644247666645564774332655635451463466436553543345534 +3421254214325531533341451252331315345315434223515155135443524341511332553311243245443335212113246789 +3353553233453524433434452635134344283233323323232234324232432342323831433833323533133642132553563335 +4136245552627274422451334432874465293326332243613632456443355732542694531343332248246255266565233636 +2222222123222222232282222725322229122222222223312132222222712122322222222213121322522227222222243323 +7422233222252253222214221121222522222222216221232324271142242222222225251222323122427715322322522211 +\ No newline at end of file diff --git a/03.lisp b/03.lisp @@ -0,0 +1,22 @@ +(require "asdf") + +(defun day3-part1 (input-file) + (with-open-file (s input-file) + (do ((total 0 (+ total (calc-max-joltage line))) + (line (read-line s nil) (read-line s nil))) + ((equal line nil) total)))) + +(defun calc-max-joltage (batteries) + (let ((l (length batteries)) + (mx 0)) + (do ((n 0 (1+ n))) + ((>= n l)) + (do ((m (1+ n) (1+ m))) + ((>= m l)) + (setf mx (max mx (joltage (subseq batteries n (1+ n)) (subseq batteries m (1+ m))))))) + mx)) + +(defun joltage (b1 b2) + (+ + (* 10 (parse-integer b1)) + (parse-integer b2))) +\ No newline at end of file diff --git a/03.sample.input b/03.sample.input @@ -0,0 +1,4 @@ +987654321111111 +811111111111119 +234234234234278 +818181911112111 +\ No newline at end of file