From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 21 May 2024 15:36:56 +0000 (+0200)
Subject: 16a done
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=94896ee749b681b0bf88545b87f6ea589414299e;p=aoc-2022.git

16a done
---

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¨𝕩⟩
 }