From 94896ee749b681b0bf88545b87f6ea589414299e Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 21 May 2024 17:36:56 +0200
Subject: [PATCH] 16a done

---
 16/16a.bqn | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/16/16a.bqn b/16/16a.bqn
index 779325f..96df366 100644
--- a/16/16a.bqn
+++ b/16/16a.bqn
@@ -1,7 +1,8 @@
 Prep←{
+  •Show 𝕩
   name⇐2↑6↓𝕩
   flow⇐•ParseFloat(𝕩∊"0123456789")/𝕩
-  tunnels⇐⟨∘,2⟩⥊3↓(𝕩∊('A'+↕('Z'-'A')))/𝕩
+  tunnels⇐⟨∘,2⟩⥊3↓(𝕩∊('A'+↕(1+'Z'-'A')))/𝕩
 }
 
 Main←{
@@ -18,15 +19,12 @@ Main←{
   Search←{
     𝕊⟨time,here,vs⟩:
     # •Show ⟨time,here,vs⟩
-    ⌈´⟨0⟩∾{
-      Move⟨time-⟨here,𝕩⟩⊑paths+1,𝕩,vs⟩
-    }¨/nonzero∧¬vs
+    ⌈´⟨0⟩∾{Move⟨time-⟨here,𝕩⟩⊑paths+1,𝕩,vs⟩}¨/nonzero∧¬vs
   }
   Move←{
     𝕊⟨time,·,·⟩: time < 0 ? ¯∞;
     𝕊⟨time,here,vs⟩:
-      •Show ⟨time,here,vs⟩
-      •Show (time×here⊑flows) + Search⟨time,here,vs Open here⟩
+      (time×here⊑flows) + Search⟨time,here,vs Open here⟩
   }
   Search⟨30,aa,0¨𝕩⟩
 }
-- 
2.30.2