From: Ben Harris <bjh21@bjh21.me.uk>
Date: Mon, 13 May 2024 19:43:28 +0000 (+0100)
Subject: 13a working on the example but probably subtly wrong
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=cc4eb4d3162886de642f9a93755fcf66f4b223e4;p=aoc-2022.git

13a working on the example but probably subtly wrong
---

diff --git a/13/13a.bqn b/13/13a.bqn
index 6a1c6b1..8f3299d 100644
--- a/13/13a.bqn
+++ b/13/13a.bqn
@@ -6,7 +6,7 @@ Split←{
 }
 
 Prep←{
-  {•Show 𝕩 ⋄ •Show ParseVal 𝕩}¨¨(""⊸≡¨𝕩)Split𝕩
+  ParseVal¨¨(""⊸≡¨𝕩)Split𝕩
 }
 
 ParseList←{𝕊in:
@@ -17,4 +17,8 @@ ParseList←{𝕊in:
 
 ParseVal←{'['=⊑𝕩}◶⟨•ParseFloat,ParseList⟩
 
-•Show Prep •file.Lines ⊑•args
+Main←{
+  +´({0=⊑⍋𝕩}¨𝕩)/1+↕≠𝕩
+}
+
+•Show Main Prep •file.Lines ⊑•args