1 files changed, 23 insertions, 0 deletions
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)