From e8b5d3cfcf3e07a3a702429fc1e3e75bddc7559a Mon Sep 17 00:00:00 2001 From: rhiannon morris Date: Mon, 5 Dec 2022 13:24:35 +0100 Subject: [PATCH] bqn5 --- aoc.bqn | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) 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