diff --git a/aoc.bqn b/aoc.bqn index 7e25554..0c53d12 100644 --- a/aoc.bqn +++ b/aoc.bqn @@ -31,4 +31,20 @@ Day4 ⇐ { +´ (A⋈B)∘Line¨ •FLines 𝕩 } # ⟨ 536 845 ⟩ -# •Show Day4 ⊑•args + +Day5 ⇐ { + inp ← •FLines 𝕩 + Start ← {(𝕨⊸=⊑⎊0)¨⊸/ 𝕩} + stks ← ' '⊸≠⊸/¨ <˘ ⍉> (1⊸⊑¨ 4⊸Chunk)¨ '[' Start inp + todo ← •BQN⚇1 (1‿3‿5⊸⊏ ' '⊸Split)¨ 'm' Start inp + _Do1 ← { + n‿s‿t ← 𝕩 - 0‿1‿1 + l‿r ← n (↑⋈↓) s⊑𝕨 + (𝔽 l)⊸∾⌾(t⊸⊑) r⌾(s⊸⊑) 𝕨 + } + _Do ← {⊑¨ 𝕨𝔽_Do1˜´⌽𝕩}, A ← ⌽_Do, B ← ⊢_Do + stks (A⋈B) todo +} +# ⟨ "QNNTGTPFN" "GGNPJBTTR" ⟩ + +# •Show Day5 ⊑•args