From 39c89ada3dd2b24ff16be4889658a827815f6ffc Mon Sep 17 00:00:00 2001
From: rhiannon morris <rhi@rhiannon.website>
Date: Wed, 21 Dec 2022 18:02:25 +0100
Subject: [PATCH] bqn poking

---
 aoc.bqn | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/aoc.bqn b/aoc.bqn
index aa079d8..6a8d857 100644
--- a/aoc.bqn
+++ b/aoc.bqn
@@ -2,12 +2,12 @@
 Sub ⇐ {a‿b𝕊𝕩:b↑a↓𝕩}
 
 # e Split xs: split xs on occurrences of e (default 0)
-Split ⇐ {(⊏ ∾ 1⊸↓¨∘(1⊸↓)) Sub⟜𝕩¨ (» ⋈¨ ⊢-») /w=𝕩∾(w←𝕨⊣0)}
+Split ⇐ {(⊏ ∾ 1⊸↓¨∘(1⊸↓)) Sub⟜𝕩¨ (» ⋈¨ ⊢-») /w⊸≡¨𝕩∾w←𝕨⊣0}
 
 # n Chunk xs: split into chunks of length n (the last one might be smaller)
 Chunk ⇐ {(⌊𝕨÷˜↕≠𝕩)⊔𝕩}
 
-Day1 ⇐ (⊑ ⋈ (+´3⊸↑))∘(∨+´¨)∘Split∘(•BQN⎊0¨)∘•FLines
+Day1 ⇐ {(⊑ ⋈ (+´3⊸↑)) ∨+´¨ •BQN⚇1 "" Split •FLines 𝕩}
 # ⟨ 72602 207410 ⟩
 
 Day2 ⇐ {
@@ -68,8 +68,8 @@ Day10 ⇐ {
 # (but the string is a big banner)
 
 Day18 ⇐ { # part 1 only :[
-  grid  ← (↕∘> 1+⌈˝)⊸∊ •BQN¨ '‿'⍟(=⟜',')⚇0 •FLines 𝕩
-  touch ← +´⥊ «‿» {∧⟜(𝕎⎉𝕩) grid}⌜ 1+↕3
+  grid  ← (↕∘> 1+⌈´)⊸∊ •BQN¨ '‿'⍟(=⟜',')⚇0 •FLines 𝕩
+  touch ← +´⥊ «‿» {(𝕎⎉𝕩)⊸∧grid}⌜ 1+↕3
   +´⥊ (6×grid)-touch
 }
 # 3470