From d70b322bf7d0c81b36d48a446e1a1880c05e6290 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Fri, 10 Dec 2021 13:43:23 +0100
Subject: day09

---
 day09.bqn | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 day09.bqn

(limited to 'day09.bqn')

diff --git a/day09.bqn b/day09.bqn
new file mode 100644
index 0000000..f79835c
--- /dev/null
+++ b/day09.bqn
@@ -0,0 +1,23 @@
+_fix ← { 𝕩 ≡ 𝔽 𝕩 ? 𝕩 ; 𝕊 𝔽 𝕩 }
+d←>'0'-˜•FLines"day09"
+
+l←d<⌊´{∞⊸»˘⌾(⍉∘⌽⍟𝕩)d}¨↕4
+•Out +´⥊(1+d)×l
+
+s← (1+↕×´≢d)×⌾⥊ l
+Rise←(d≠9)⊸×(»⌈«⌈«˘⌈»˘⌈⊣)
+m←⥊ Rise _fix s
+•Out ×´3↑∨≠¨⊔(m>0)/m
+
+
+# m← ⥊ Rise⍟50 s
+{
+_fix ← { 𝕩 ≡ 𝔽 𝕩 ? 𝕩 ; 𝕊 𝔽 𝕩 }
+•Out ×´3↑∨≠¨⊔(>⟜0 / ⊢) ⥊ ((d≠9)⊸× »⌈«⌈«˘⌈»˘⌈⊣) _fix (1+↕×´≢d)×⌾⥊l
+}
+
+# 512
+# 1600104
+
+# Rise←{(d≠9)×(»𝕩)⌈(«𝕩)⌈(«˘𝕩)⌈(»˘𝕩)⌈𝕩}
+# l←d<(∞»˘⌾⍉d)⌊(∞«˘⌾⍉d)⌊(∞«˘d)⌊(∞»˘d)
-- 
cgit 1.4.1