From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 21 May 2024 10:38:32 +0000 (+0200)
Subject: 16a: correct but slow exhaustive search
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=b22bee2c316e9431820a8c77e54c4de8ce2118ae;p=aoc-2022.git

16a: correct but slow exhaustive search
---

diff --git a/16/16a.bqn b/16/16a.bqn
new file mode 100644
index 0000000..a83e749
--- /dev/null
+++ b/16/16a.bqn
@@ -0,0 +1,25 @@
+Prep←{
+  name⇐2↑6↓𝕩
+  flow⇐•ParseFloat(𝕩∊"0123456789")/𝕩
+  tunnels⇐⟨∘,2⟩⥊3↓(𝕩∊('A'+↕('Z'-'A')))/𝕩
+}
+
+Main←{
+  names←{𝕩.name}¨𝕩
+  flows←{𝕩.flow}¨𝕩
+  tunnelses←{names⊐⥊⋈˘𝕩.tunnels}¨𝕩
+  Open←{1⌾(𝕩⊸⊑)𝕨}
+  Search←{
+    𝕊⟨0,·,·⟩: 0;
+    𝕊⟨time,·,vs⟩: ∧´vs? time×+´vs/flows;
+    𝕊⟨time,here,vs⟩:
+    •Show ⟨time,here,vs⟩
+    time-↩1
+    (+´vs/flows)+⌈´⟨Search⟨time,here,vs Open here⟩⟩∾{
+      Search⟨time,𝕩,vs⟩
+    }¨here⊑tunnelses
+  }
+  Search⟨30,0,0¨𝕩⟩
+}
+
+•Show Main Prep¨ •file.Lines ⊑•args