From 6f59eeb7ec53392d3121127af8931f072e79b4db Mon Sep 17 00:00:00 2001 From: Wesley Moore Date: Thu, 8 Dec 2022 21:19:03 +1000 Subject: [PATCH] Day 8 part 1 - non-working --- 2022/input/day_8.txt | 99 +++++++++++++++++++++++++++++++ 2022/src/days/day_8.gleam | 118 +++++++++++++++++++++++++++++++++++++ 2022/test/day_8_test.gleam | 22 +++++++ 3 files changed, 239 insertions(+) create mode 100644 2022/input/day_8.txt create mode 100644 2022/src/days/day_8.gleam create mode 100644 2022/test/day_8_test.gleam diff --git a/2022/input/day_8.txt b/2022/input/day_8.txt new file mode 100644 index 0000000..8a5bc29 --- /dev/null +++ b/2022/input/day_8.txt @@ -0,0 +1,99 @@ +011112220220323233332231343014141131140112421211413355234334024414242133303312210313023000021220102 +221002103112233201234202003421134043024153515443332415451142151141323114321301434333033210022221022 +201200003311133331441214403131041312551423522332422531524232533513033233434420203421023110323221022 +121121213131010131201002413232224444334133213322251443153145222321552044232113011214212110102102211 +212113303331021314321111140111522454555135544314235452234224545142541330223322222234211031300120220 +010212031223201244112200401335253221225255255322553133211323513113422143522323420011223321133113101 +011020312301013040344114333334442144514455512552221415123255124524531151554104224200443112211210031 +212103301320231332441144214355422451145143521345255326544451431544214432121550112030101122302303021 +220232122110131143411335344551322314153422353555245353522346615142142533512423212340133002223102320 +123203222223430330030314515252515255254362252265436645524643534633245232434155413030142133001200320 +232211213322123322103442125511131155663325635553522434545445552266442151514322444424100420020000011 +321232322313243000453341414523445426226644644265452262664344634465246122122543132514120020411332033 +202331334121420235323225354242425245652324266442344526232654535245252651555215135125041401014413003 +030112100334314051222325325124636325444634664346624462255253366255466452513431325251113413144442330 +020200433043320152232154136232564443545365465255646653263522363554354564422421324241211021000140121 +032011132023104255151145246424353264523526344436554334475646444542435562556325335443513020140421120 +210204303043241221415453653453366254565373457364675545654666377423454542265263342335255230433142310 +210312323220343143353556243436325432556736764666334633457533745332644345623536221544225432033020410 +233410214315423344423442656226454445357767646343373565363645755734732354353645223242442442112322443 +322403301001251255154242326443445466736576466455545656643435677365674243235222245343143455320114330 +232343201234134131134332335444557474363474446344776366756565574535744735324323246532552555432040041 +221232224415533122543465364445435364564576534743763474566355767775774577553544653464142513144443313 +122112442244542214262445665475477545734565457478857667547473567477336557726442444644441243444402330 +143012145515212424235524535555733334457686447444847564554866735433374643763343245542354341522310301 +343034021325435535455442355474677535777784688864647648684444458747443667643423643452544435114443124 +000403451411241463226443476733365546877644754747566667486574544543776475363624545332334511311214303 +013002242525556352626433636455377384766855876756685885854848875568474373437675532433635212321111322 +101010142252123346235437467476546685846885866865567487856755684744544675575633223264225545223542222 +342002313434136635656244356646468576664565586756447555664585478665556463354555546643556622525525002 +304211422335342355323755634454757484685568785668995686856577754577844777634756472362366633324314412 +231133244553256623647336646666864756787445877675585597686594886667647464354533657554554353332112524 +120344321215652622227445664658856658787585889889659567969656785855874777755473764556264244443152242 +440423214313632526376434563658657485749798857588556576776776858587648478466464663564663336325425331 +011254331316253653674574346456874647667888866559779658686765656768765578865554674352333225544221323 +023413144524364645635675736677586666956885689798886598595799575656874764865373535644332466511331341 +122254414355225323664755365568758589577679686887799795759896779887545576777454544375265466443443235 +412421452563253445537467347658777879785759567968966967575558955868854646578873575357565236511122521 +015221314664564236645543668766675798567999788879796666869699657885985874547845773566464625361212125 +213255112624445653744634755467766595886577869989896967967796599685695675888763355455363352561531455 +051115255524443264764435668448576976667776669978668998866669987997588887564444673776525636555252522 +315344432555344664633555485554469988678878999897687977797786889787978545858784436346566536662543432 +342334532442256655765436787556789957565686789788896899987689678797579887867778443435552454223234514 +044222226353425754474346685474575657758678966697998869888679776868568567678584464343643446543142315 +144512246654532464343347645766565789898698789788997968679687989758869974574466636667665323253213321 +154415255624566636654388858668758665689978996897979798788878699767976598455446474765435324456113342 +222333513555245346467374666655885657577998667798797888978998868866957797665858765377465234256133231 +345551444536645634576788887678768556687766667898989777979999976777866956665855476574554565645424315 +214425354332335634336444556745876659867688868787798798879898768996785655575686846567542442554353234 +411151526365526435763654766745695769989997787877899999777677796975768665578855433353537425364324435 +522535522334266753767645655578787759999797977799978897877967869699787686678555733446763633345235242 +434554556234464756756646566577685856698867888798779989897888768886756666848455565474773255436431353 +442445343526335577465554675665559886897887778777987888778968877985997667668778573677767566543431434 +211451552626333634363465768567858685978899767778888797787769889997886696648488453374457335426324331 +352321245665435473457546867457579566688987988898999788977968676875958875756786856557334623665613554 +134251534254346364373746868447957667578688897887888977799998977767868758754674643636734354455334533 +245245423445544557373667445675755587897766677987799879977688696665989986846448873477364262625234454 +145224324344246776343755754785995768789786888699787788766886767677965697467477553656766544246513254 +324145213325563543644657785454865677777876788869778868797668787676695555668476343574675463435354251 +413445215463653557663646785857989685956686966678678698889778897766895898544664356673734242234254124 +034351535553342544655674756865698875897888787897688768789698799656958666567856653353444644544544421 +133431555226353336664734658784788759769799696889799686678886856966568675647876755663336364665314322 +352533334635454546743545675475565978755677998676889876879868566868875574457747644333625466224445225 +355351222554253337357543454756675876989667686867777777888979575678967457886686766643322426625255125 +301424431256355654573454748776556985989986569888688898788856597696575488864856754567355352241115321 +334321351343534467436553584585445758875669977678797666578677575578655877475477536443424544521454224 +013544235464335336476633477774477476686866559855687876665969679665764854667467373455335366315243233 +112151451535653464334745366774754847778758859698679755768697858997878486758757546343322225255512514 +443545411335354445544673335765684574789589677978989757787667778688476787477664364445336662115531221 +443244544145445266247734664546768464658669796775859668897565658658468857653377655436433366414135313 +010252534423256334446667573476457575487596776895885755586667884466654888463534655556544243135421414 +014442551411344322466653454757848477584476886899967686787665786647774457465756356452536324535435123 +334422335251334244533574565465486878485446665569659976696474654844488654654664446434222541455145113 +422042222114544645653646637673357446446767657686784455466855674884758555555655725563322345443214311 +402101351333342265545553643374447487578876487756686755567778855457564663644744556325335113252214413 +020401432452525465462342675634576768765558475768546747458444657465736777435756524535423151534540433 +243400241421422365236324343433537655646765656686868457744888876887645466644353552522561443452110131 +003103135121351256222624237444364336577744656885555668476484458534564557546523454435651431352134341 +442201144132352152442423554634347545537756888457774564788446865557333633753246362522533121322124221 +042304405522541234526265624675463537343637577754484575664343357636766467765454625421455125252421130 +314110031551545454255523645535756377673434677564574657764673676766535556624242334545542323234044343 +041012332333325345165432634364576475755744555334564654644333744353563644464423523312312411403444121 +124302121131253134543646522633333333576373775465555676773747353674453633545332653355411213114300403 +302411422212352135214225645652536667357533357667635654377766436757352425435362534153522532340243120 +203202223241334312122414443425254534435347434576567673567635537464322534362435145114215322422004201 +110342140441034112531143666254342264344435346667664677454757336354363455622352232125251133310231303 +300304343314324221532432445663443563562366357346443374734472246525566435265232524142512222034111133 +202233112212120515131252235262346544266665653664554636565424424235234433226241324545132240232410001 +332313111224211043414543212336356265244525555535245664242355426664325225354122332125233004041231313 +212202242323141205314235551145533455663632653424353364426426265425636324111513154352142322133233021 +222001223102021231253525543223522653656656533626646546323265643636332221114125535230342011132023003 +131321002042102021303551143221352255263646432525653222536364426366255225412113334103102433030120120 +123013232113443113004333513541141433446563565453423353632226246342532522253511543223024330220123232 +020100001122004013021214144132214525141333344452225255633226351331523254423535242210042134110021313 +000032312330431022234112313521113225332255235165644226445131125441512142114320042430310221111210323 +222131320213212322000341013532113515512425422422531545412311135522225313553330241403034233001021201 +102232032332111012030031433325455242543415353325354325411434155351223114403024214003424030023121101 +001023120230001141401143210134432545451343542414432432444534422135454111411010334001323200230022022 +020210023322210014243401240134314541235251513215515342432345433232312001040222232101223203330221220 +022010220332323232024402340343441321225445453325151544211235521343432303124012101020011220000301222 diff --git a/2022/src/days/day_8.gleam b/2022/src/days/day_8.gleam new file mode 100644 index 0000000..e9e6139 --- /dev/null +++ b/2022/src/days/day_8.gleam @@ -0,0 +1,118 @@ +import gleam/io.{debug} +import gleam/int +import gleam/iterator.{zip} +import gleam/result +import gleam/string +import gleam/list +import gleam/option.{Some, None} + +pub fn pt_1(input: String) -> Int { + let trees_by_row = + input + |> string.split("\n") + |> list.map(parse_row) + + let trees_by_col = list.transpose(trees_by_row) + + // Generate grids of max values from left, right, top, bottom + let left = + list.map(trees_by_row, scan_max) + |> iterator.from_list + // debug(left |> iterator.to_list) + let right = + trees_by_row + |> list.map(list.reverse) + |> list.map(scan_max) + |> list.reverse + |> iterator.from_list + let top = + list.map(trees_by_col, scan_max) + |> iterator.from_list + let bottom = + trees_by_col + |> list.map(list.reverse) + |> list.map(scan_max) + |> list.reverse + |> iterator.from_list + + let outside_trees = + 2 * list.length(trees_by_row) + 2 * list.length(trees_by_col) - 4 + debug(outside_trees) + + let inside_trees = + trees_by_row + |> iterator.from_list + |> zip(left) + |> zip(right) + |> zip(top) + |> zip(bottom) + |> iterator.fold(0, process_row) + debug(inside_trees) + + outside_trees + inside_trees +} + +pub fn pt_2(input: String) -> Int { + todo +} + +fn parse_row(row: String) -> List(Int) { + row + |> string.to_graphemes + |> list.map(parse_int) +} + +fn parse_int(text: String) -> Int { + assert Ok(i) = int.parse(text) + i +} + +pub fn scan_max(numbers: List(Int)) -> List(Int) { + numbers + |> list.scan(#(None, 0), fn(acc, tree) { + case acc { + // Edge tree + #(None, _) -> #(Some(tree), 10) + // First tree in from edge + #(Some(prev), 10) -> #(Some(tree), prev) + // Other tree + #(Some(prev), max) -> case prev > max { + True -> #(Some(tree), prev) + False -> #(Some(tree), max) + } + } + }) + |> list.map(fn(tup) { tup.1 }) +} + +// That's not a type, now _this_ is a type lol +fn process_row( + count: Int, + rows: #(#(#(#(List(Int), List(Int)), List(Int)), List(Int)), List(Int)), +) -> Int { + let #(#(#(#(trees, left), right), top), bottom) = rows + + trees + |> iterator.from_list + |> zip(iterator.from_list(left)) + |> zip(iterator.from_list(right)) + |> zip(iterator.from_list(top)) + |> zip(iterator.from_list(bottom)) + |> iterator.fold(count, count_if_visible) +} + +fn count_if_visible( + count: Int, + record: #(#(#(#(Int, Int), Int), Int), Int), +) -> Int { + let #(#(#(#(tree, left), right), top), bottom) = record + debug(#(tree, left, right, top, bottom)) + + case + [left, right, top, bottom] + |> list.any(fn(max) { tree > max }) + { + True -> count + 1 + False -> count + } +} diff --git a/2022/test/day_8_test.gleam b/2022/test/day_8_test.gleam new file mode 100644 index 0000000..d8ec4b4 --- /dev/null +++ b/2022/test/day_8_test.gleam @@ -0,0 +1,22 @@ +import gleeunit +import gleeunit/should +import days/day_8 + +pub fn main() { + gleeunit.main() +} + +pub fn scan_max_test() { + day_8.scan_max([2, 5, 5, 1, 2]) + |> should.equal([10, 2, 5, 5, 5]) +} + +// 30373 +// 25512 +// 65332 +// 33549 +// 35390 +pub fn pt1_test() { + day_8.pt_1("30373\n25512\n65332\n33549\n35390") + |> should.equal(21) +}