From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sat, 4 May 2024 08:49:13 +0000 (+0100)
Subject: Genericise Split to modifier _split in 04
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=0d06f4df8f601d34159d61718c6b2451d28d593d;p=aoc-2022.git

Genericise Split to modifier _split in 04
---

diff --git a/04/04a.bqn b/04/04a.bqn
index 5f24985..4e378b4 100644
--- a/04/04a.bqn
+++ b/04/04a.bqn
@@ -1,12 +1,12 @@
-Split←{
-  delims←𝕩∊",-"
+_split←{
+  delims←𝔽𝕩
   blocknums ← +`delims
   # Set entries in blocknums to -1 when they correspond with delims.
   blocknums ↩ (¯1¨)⌾(delims⊸/) blocknums
   blocknums⊔𝕩
 }
 
-Prep←{⍉>•ParseFloat¨¨Split¨𝕩}
+Prep←{⍉>•ParseFloat¨¨{𝕩∊",-"}_split¨𝕩}
 
 Main←{𝕊[x0,x1,y0,y1]:
   +´((x0≤y0)∧(x1≥y1))∨((y0≤x0)∧(y1≥x1))
diff --git a/04/04b.bqn b/04/04b.bqn
index 8832e63..048a6dc 100644
--- a/04/04b.bqn
+++ b/04/04b.bqn
@@ -1,12 +1,12 @@
-Split←{
-  delims←𝕩∊",-"
+_split←{
+  delims←𝔽𝕩
   blocknums ← +`delims
   # Set entries in blocknums to -1 when they correspond with delims.
   blocknums ↩ (¯1¨)⌾(delims⊸/) blocknums
   blocknums⊔𝕩
 }
 
-Prep←{⍉>•ParseFloat¨¨Split¨𝕩}
+Prep←{⍉>•ParseFloat¨¨{𝕩∊",-"}_split¨𝕩}
 
 Main←{𝕊[x0,x1,y0,y1]:
   +´((x0≤y1)∧(x1≥y0))∨((y0≤x1)∧(y1≥x0))