bqn5

2022-12-05 13:24:35 +01:00 · 2022-12-05 13:24:35 +01:00 · e8b5d3cfcf
commit e8b5d3cfcf
parent 1da0498792
1 changed files with 17 additions and 1 deletions
--- 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