#!/usr/bin/env BQN ⟨Xor⟩ ← •Import "../lib.bqn" # # Utilities # ⟨IsAsciiNum,ReadInt,ReadDec,SplitOn,_fix⟩ ← •Import •path∾"/../lib.bqn" ReadInput ← {•file.Lines ∾ •path‿"/input/day"‿(•Fmt 𝕩)} # # 2021-12-01 # # part 1 day1ExampleInput ← 199‿200‿208‿210‿200‿207‿240‿269‿260‿263 day1Input ← ReadDec¨ReadInput 1 # NB: Because distance from the ground is never smaller than zero, it's # no problem that nudge inserts a zero at the end of the right list PositiveDeltaCount ← +´∘(⊢<«)+˝˘∘↕ ! 7 = 1 PositiveDeltaCount day1ExampleInput •Out "Day 1.1: "∾•Fmt 1 PositiveDeltaCount day1Input # part 2 ! 5 = 3 PositiveDeltaCount day1ExampleInput •Out "Day 1.2: "∾•Fmt 3 PositiveDeltaCount day1Input # # 2021-12-02 # # part 1 day2ExampleInput ← ⟨ "forward 5", "down 5", "forward 8", "up 3", "down 8", "forward 2", ⟩ day2Input ← ReadInput 2 ParseSubmarineCommand ← (((↕2)⊸((((-1)⊸⋆)∘(2⊸|))×(=⟜(⌊∘(÷⟜2))))∘("duf"⊸⊐)∘⊑)×ReadDec∘(IsAsciiNum/⊢)) SubmarineDestProduct ← {×´+´ParseSubmarineCommand¨𝕩} ! 150 = SubmarineDestProduct day2ExampleInput •Out "Day 2.1: "∾•Fmt SubmarineDestProduct day2Input # part 2 SubmarineAimedDestProduct ← { ×´+´((×´)∘(1⊸↓)≍(1⊸⊑))¨ (<0‿0‿0) (⊢∾((⊑∘⌽⊣)+(⊑⊢)))` ParseSubmarineCommand¨𝕩 } ! 900 = SubmarineAimedDestProduct day2ExampleInput •Out "Day 2.2: "∾•Fmt SubmarineAimedDestProduct day2Input # # 2021-12-03 # BinTable ← '0'-˜> day3ExampleInput ← BinTable ⟨ "00100", "11110", "10110", "10111", "10101", "01111", "00111", "11100", "10000", "11001", "00010", "01010", ⟩ day3Input ← BinTable ReadInput 3 DeBinList ← ((2⊸×)+⊣)´⌽ _tableAggr ← {((÷⟜2)∘(/⟜⥊)´∘⌽∘≢𝔽(+˝))𝕩} GammaRate ← < _tableAggr ! 22 = DeBinList GammaRate day3ExampleInput ! 9 = DeBinList ¬GammaRate day3ExampleInput •Out "Day 3.1: "∾•Fmt (¬×○DeBinList⊢) GammaRate day3Input _lifeSupportRating ← { # Need to rename the arguments, otherwise the ternary expr becomes a function bitPos ← 𝕨 Cmp ← 𝔽 crit ← Cmp _tableAggr 𝕩 matchPos ← bitPos ⊑˘ crit ((⥊˜⟜≢)=⊢) 𝕩 match ← matchPos/𝕩 {1=≠match?⊏match;(bitPos+1) Cmp _lifeSupportRating match} } OxygenGeneratorRating ← DeBinList 0 ≤_lifeSupportRating ⊢ CO2ScrubberRating ← DebinList 0 >_lifeSupportRating ⊢ ! 23 = OxygenGeneratorRating day3ExampleInput ! 10 = CO2ScrubberRating day3ExampleInput •Out "Day 3.2: "∾•Fmt (OxygenGeneratorRating×CO2ScrubberRating) day3Input # # 2021-12-04 # day4Numbers ← ReadDec¨ ',' SplitOn ⊑ReadInput 4 day4Boards ← ReadDec¨>˘(' '⊸SplitOn¨)> (<⟨⟩) SplitOn 2↓ReadInput 4 BoardWins ← {C ← ∨´∘(∧´˘) ⋄ (C∨C∘⍉)𝕩} _CallNumber ← {(𝕗∊⥊𝕩) (∨⍟(¬∘BoardWins∘⊢))˘ 𝕨} BoardWinScores ← { 𝕩 (0⊸[[{[]{<()<>>", "[(()[<>])]({[<{<<[]>>(", "{([(<{}[<>[]}>{[]{[(<()>", "(((({<>}<{<{<>}{[]{[]{}", "[[<[([]))<([[{}[[()]]]", "[{[{({}]{}}([{[{{{}}([]", "{<[[]]>}<{[{[{[]{()[[[]", "[<(<(<(<{}))><([]([]()", "<{([([[(<>()){}]>(<<{{", "<{([{{}}[<[[[<>{}]]]>[]]", ⟩ day10Input ← ReadInput 10 # part 1 opp ← "([{<" clp ← ")]}>" SwapParen ← (opp∾⌽clp)⊸((⊑⊐)⊑(⌽⊣)) ParenStacks ← ((<⟨⟩)⊸(((⊑∊)⟜clp⊢)◶(∾˜⟜SwapParen)‿(1⊸↓⊣)`)) LegalParens ← ((1⊸↑)¨∘»∘ParenStacks ((∊⟜opp⊢)∨(≡⟜⋈)¨) ⊢) _ScoreFor_ ← {𝕗⊸(𝕘⊸⊐⊏⊣) 𝕩} SyntaxScore ← +´∘(0‿3‿57‿1197‿25137 _ScoreFor_ (" "∾clp))∘∾∘(1⊸↑∘(¬∘LegalParens/⊢)¨) ! 26397 = SyntaxScore day10ExampleInput •Out "Day 10.1: "∾•Fmt SyntaxScore day10Input # part 2 AutocompleteScore ← { Score ← (5⊸×⊸+)˜´∘⌽∘((1+↕4) _ScoreFor_ clp) # TODO(sterni): we compute ParenStacks twice here ((⌊÷⟜2)∘≠⊑⊢) ∧ Score∘(⊑⌽)∘ParenStacks¨ (∧´∘LegalParens¨/⊢) 𝕩 } ! 288957 = AutocompleteScore day10ExampleInput •Out "Day 10.2: "∾•Fmt AutocompleteScore day10Input # # 2021-12-11 # day11Input ← '0'-˜> ReadInput 11 day11ExampleInput ← >⟨ ⟨5,4,8,3,1,4,3,2,2,3,⟩, ⟨2,7,4,5,8,5,4,7,1,1,⟩, ⟨5,2,6,4,5,5,6,1,7,3,⟩, ⟨6,1,4,1,3,3,6,1,4,6,⟩, ⟨6,3,5,7,3,8,5,4,7,8,⟩, ⟨4,1,6,7,5,2,4,6,4,5,⟩, ⟨2,1,7,6,8,4,1,7,2,1,⟩, ⟨6,8,8,2,8,8,1,1,3,4,⟩, ⟨4,8,4,6,8,4,8,5,5,4,⟩, ⟨5,2,8,3,7,5,1,5,2,6,⟩, ⟩ # part 1 OctopusFlash ← { ((⥊⟜0)∘≢𝕊⊢) 𝕩; flashing ← (¬𝕨)∧9<𝕩 energy ← ((«˘»)+(»˘«)+(»˘»)+(«˘«)+(»˘)+(«˘)+«+») flashing ((𝕨∨flashing)⊸𝕊)⍟(0<+´⥊flashing) energy+𝕩 } OctopusStep ← ((9⊸≥)×⊢)∘OctopusFlash∘(1⊸+) OctopusFlashCount ← {+´⥊0=>(OctopusStep⊣)`(1+𝕨)⥊<𝕩} ! 1656 = 100 OctopusFlashCount day11ExampleInput •Out "Day 11.1: "∾•Fmt 100 OctopusFlashCount day11Input # part 2 _iterCountUntil_ ← { 0 𝕊 𝕩; 𝔾◶⟨((𝕨+1)⊸𝕊)∘𝔽, 𝕨˙⟩ 𝕩 } OctopusAllFlashing ← OctopusStep _iterCountUntil_ (∧´∘⥊∘(0⊸=)) ! 195 = OctopusAllFlashing day11ExampleInput •Out "Day 11.2: "∾•Fmt OctopusAllFlashing day11Input # # 2021-12-13 # SplitFoldingInstructions ← ("fold along"⊸(⊣≡≠⊸↑)¨⊔⊢)∘(0⊸(≠⟜≠¨/⊢)) day13ExampleInput ← SplitFoldingInstructions ⟨ "6,10", "0,14", "9,10", "0,3", "10,4", "4,11", "6,0", "6,12", "4,1", "0,13", "10,12", "3,4", "3,0", "8,4", "1,10", "2,14", "8,10", "9,0", "", "fold along y=7", "fold along x=5", ⟩ day13Input ← SplitFoldingInstructions ReadInput 13 ParseDots ← ReadDec¨∘(','⊸SplitOn)¨ ParseFolds ← (⊑∘'y'⊸∊≍ReadDec∘(IsAsciiNum/⊢))¨ day13ExampleDots ← ParseDots ⊑ day13ExampleInput # part 1 # 𝕨=0 => x, 𝕨=1 => y # 𝕩 is coordinate to fold around # 𝕗 is input dot list (see ParseDots) _Fold ← {⍷∘((𝕩⊸(((2⊸×⊣)-⊢)⌊⊢)∘⊑≍1⊸⊑)¨⌾(⌽¨⍟𝕨)) 𝕗} ! 17 = ≠ 1 day13ExampleDots _Fold 7 day13Dots ← ParseDots ⊑ day13Input day13Folds ← ParseFolds 1 ⊑ day13Input •Out "Day 13.1: "∾•Fmt ≠ (day13Dots _Fold)´ ⊑day13Folds # part 2 PerformAllFolds ← {𝕩 {(𝕨 _Fold)´𝕩}˜´ ⌽𝕨} DotMatrix ← { ⟨width, height⟩ ← 1+⌈˝∘‿2⥊∾𝕩 {𝕩? '█';' '}¨ height‿width⥊≠¨⊔((⊣+(width⊸×)∘⊢)´)¨ 𝕩 } •Out "Day 13.2:" •Out •Fmt DotMatrix day13Folds PerformAllFolds day13Dots # # 2021-12-14 # day14Polymer ← ⊑ReadInput 14 day14Mapping ← 2↓ReadInput 14 lp ← (2⊸↑)¨ day14Mapping le ← ⍷∾lp # returns array as long as 𝕨 detailing how many times the element # at any given index occurs in 𝕩. Counts ← ((≠⊣)↑(/⁼)∘⊐) deltaPairs ← { addedPairs ← ((-1)⊸⊑¨day14Mapping) (⌽⌾(0⊸⊑))∘(∾¨)¨ lp removedPairs ← ⋈¨ (2⊸↑)¨ lp addedPairs (-○(lp⊸Counts))¨ removedPairs } pairCount ← lp Counts ⥊∘(⋈˘) 2↕day14Polymer PairInsert ← {𝕩 +´ 𝕩רdeltaPairs} pairElementCount ← (le⊸Counts)¨lp ElementRarityDiff ← { ((-1)⊸⊑-⊑)∧ ⌈2÷˜ +´ pairElementCount×PairInsert⍟𝕩 pairCount } •Out "Day 14.1: "∾•Fmt ElementRarityDiff 10 •Out "Day 14.2: "∾•Fmt ElementRarityDiff 40 # # 2021-12-15 # day15ExampleInput ← >⟨ 1‿1‿6‿3‿7‿5‿1‿7‿4‿2 1‿3‿8‿1‿3‿7‿3‿6‿7‿2 2‿1‿3‿6‿5‿1‿1‿3‿2‿8 3‿6‿9‿4‿9‿3‿1‿5‿6‿9 7‿4‿6‿3‿4‿1‿7‿1‿1‿1 1‿3‿1‿9‿1‿2‿8‿1‿3‿7 1‿3‿5‿9‿9‿1‿2‿4‿2‿1 3‿1‿2‿5‿4‿2‿1‿6‿3‿9 1‿2‿9‿3‿1‿3‿8‿5‿2‿1 2‿3‿1‿1‿9‿4‿4‿5‿8‿1 ⟩ day15Input ← '0'-˜ ((≠⋈≠∘⊑)⥊∾)ReadInput 15 LowestRiskLevel ← { start ← 0˙⌾⊑ (⥊⟜∞) ≢𝕩 ir ← (1⊑≢𝕩)⥊∞ Step ← {𝕩 ⌊ 𝕨 + (ir⊸«⌊ir⊸»⌊∞⊸«˘⌊∞⊸»˘) 𝕩} ⊑⌽⥊ 𝕩⊸Step _fix start } ! 40 = LowestRiskLevel day15ExampleInput •Out "Day 15.1: "∾•Fmt LowestRiskLevel day15Input FiveByFiveMap ← {(9⊸|)⌾(-⟜1) ∾(<𝕩)+ +⌜˜↕5} ! 315 = LowestRiskLevel FiveByFiveMap day15ExampleInput •Out "Day 15.2: "∾•Fmt LowestRiskLevel FiveByFiveMap day15Input # # 2021-12-20 # ParsePic ← (⋈⟜0)∘('#'⊸=)∘> day20ExampleAlgo ← '#'="..#.#..#####.#.#.#.###.##.....###.##.#..###.####..#####..#....#..#..##..###..######.###...####..#..#####..##..#.#####...##.#.#..#.##..#.#......#.###.######.###.####...#.##.##..#..#..#####.....#.#....###..#.##......#.....#..#..#..##..#...##.######.####.####.#.#...#.......#..#.#.#...####.##.#......#..#...##.#.##..#...##.#.##..###.#......#.#.......#.#.#.####.###.##...#.....####.#..#..#.##.#....##..#.####....##...##..#...#......#.#.......#.......##..####..#...#.#.#...##..#.#..###..#####........#..####......#..#" day20ExamplePic ← ParsePic ⟨"#..#.", "#....", "##..#", "..#..", "..###"⟩ day20Input ← ReadInput 20 day20Algo ← '#'=⊑day20Input day20Pic ← ParsePic 2↓day20Input GrowAxis ← {(⊢ (-1)⊸⌽∘∾ (⥊⟜𝕨)∘(2˙⌾⊑)∘≢) 𝕩} Grow ← {𝕨 GrowAxis 𝕨 GrowAxis˘ 𝕩} Enhance ← { inf ← 1⊑𝕩 npic ← ((⊑⟜𝕨)∘DebinList∘⥊)˘˘ 3‿3↕ (inf⊸Grow)⍟2 ⊑𝕩 ninf ← 𝕨⊑˜511×inf npic⋈ninf } _EnhancedPixelCount ← {+´⥊⊑ (𝕨⊸Enhance)⍟𝕗 𝕩} ! 35 = day20ExampleAlgo 2 _EnhancedPixelCount day20ExamplePic ! 3351 = day20ExampleAlgo 50 _EnhancedPixelCount day20ExamplePic •Out "Day 20.1: "∾•Fmt day20Algo 2 _EnhancedPixelCount day20Pic •Out "Day 20.2: "∾•Fmt day20algo 50 _EnhancedPixelCount day20Pic # # 2021-12-25 # day25Input ← ".>v" ⊐ > ReadInput 25 day25ExampleInput ← ".>v"⊐∘‿10⥊"v...>>.vv>.vv>>.vv..>>.>v>...v>>v>>.>.v.v>v.vv.v..>.>>..v....vv..>.>v.v.v..>>v.v....v..v.>" MoveHerd ← {(𝕩∧𝕩≠𝕨)+𝕨× (𝕨=𝕩) (Xor⟜(1⊸⌽)∨⊢) (0=𝕩)∧(-1)⌽𝕨=𝕩} _fixCount ← { 1 𝕊 𝕩; 𝕩 ≡◶⟨(𝕨+1)⊸𝕊, 𝕨˙⟩ 𝔽 𝕩 } MoveAllHerds ← (2⊸MoveHerd)∘(1⊸MoveHerd˘) ! 58 = MoveAllHerds _fixCount day25ExampleInput •Out "Day 25.1: "∾•Fmt MoveAllHerds _fixCount day25Input