1 files changed, 11 insertions, 0 deletions

diff --git a/day25.bqn b/day25.bqn
new file mode 100644
index 0000000..2af1c5e
--- /dev/null
+++ b/day25.bqn
@@ -0,0 +1,11 @@
+_fixcnt ← { 𝕩 ≡ 𝔽 𝕩 ? 𝕨 ; (𝕨+1) 𝕊 𝔽 𝕩 }
+
+d←>•FLines "day25s"
+
+•Show 1 { 𝕊 ⟨east, south⟩:
+  east ↩ ((¯1⌽˘east)∧¬south∨east) ∨ 1⌽˘(¯1⌽˘east)∧south∨east
+  south ↩ ((¯1⌽south)∧¬south∨east) ∨ 1⌽(¯1⌽south)∧south∨east
+  east‿south
+} _fixcnt (=⟜'>' ⋈ =⟜'v') d
+
+# 601