feat: full day 6.

Panadestein · Dec 7, 2024 · e8cf252 · e8cf252
1 parent 95b810f
commit e8cf252
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 17 deletions.
diff --git a/src/aoc24.org b/src/aoc24.org
@@ -121,20 +121,19 @@ to get more context. These definitions and imports are shared by the various puz
   VI ← {
     hinp ← (↕∘≢•HashMap○⥊⊢) inp ← >•Flines Input𝕩
     g ← ⊑/○⥊⟜(↕≢)'^'= inp ⋄ r ← ⟨¯1, 0⟩‿⟨0, 1⟩‿⟨1, 0⟩‿⟨0, ¯1⟩
-    Sym ← {𝕊m:
-      s ← •HashMap˜⟨⟩
-      {𝕊p‿d: s.Set˜p‿d ⋄ '#'=◶{𝕊:d⋈˜p+d⊑r}‿{𝕊:p⋈4|d+1} m.Get⎊@ p+d⊑r
-      }•_while_{𝕊𝕩: (m.Has⊑𝕩) ∧ ¬s.Has𝕩} g‿0 ⋄ s.Keys@
+    Sym ← {𝕊m: s ← •HashMap˜⟨⟩
+      (s.Keys@) ⋈ s.Has {𝕊p‿d:
+        s.Set˜p‿d ⋄ '#'=◶{𝕊:d⋈˜p+d⊑r}‿{𝕊:p⋈4|d+1} m.Get⎊@ p+d⊑r
+      }•_while_{𝕊𝕩: (m.Has⊑𝕩) ∧ ¬s.Has𝕩} g‿0
     }
-    pos ← ⍷⊏⍉>Sym hinp
-    eins ← ≠pos
+    eins‿zwei ⇐ (≠pos) ⋈ +´{nm ← (hinp.Keys@) •HashMap hinp.Values@
+                            𝕩nm.Set '#' ⋄ ⊢´Sym nm }¨ pos ← ⍷⊏⍉>⊑Sym hinp
   }
-
-  VI 6
+  VI _is 6
 #+end_src
 
 #+RESULTS:
-: 5444
+: ⟨ 5444 1946 ⟩
 
 #+BEGIN_EXPORT html
   <div style="text-align: center; font-size: 2em; padding: 20px 0;">

diff --git a/src/bqn/aoc24.bqn b/src/bqn/aoc24.bqn
@@ -49,13 +49,12 @@ V _is 5
 VI ← {
   hinp ← (↕∘≢•HashMap○⥊⊢) inp ← >•Flines Input𝕩
   g ← ⊑/○⥊⟜(↕≢)'^'= inp ⋄ r ← ⟨¯1, 0⟩‿⟨0, 1⟩‿⟨1, 0⟩‿⟨0, ¯1⟩
-  Sym ← {𝕊m:
-    s ← •HashMap˜⟨⟩
-    {𝕊p‿d: s.Set˜p‿d ⋄ '#'=◶{𝕊:d⋈˜p+d⊑r}‿{𝕊:p⋈4|d+1} m.Get⎊@ p+d⊑r
-    }•_while_{𝕊𝕩: (m.Has⊑𝕩) ∧ ¬s.Has𝕩} g‿0 ⋄ s.Keys@
+  Sym ← {𝕊m: s ← •HashMap˜⟨⟩
+    (s.Keys@) ⋈ s.Has {𝕊p‿d:
+      s.Set˜p‿d ⋄ '#'=◶{𝕊:d⋈˜p+d⊑r}‿{𝕊:p⋈4|d+1} m.Get⎊@ p+d⊑r
+    }•_while_{𝕊𝕩: (m.Has⊑𝕩) ∧ ¬s.Has𝕩} g‿0
   }
-  pos ← ⍷⊏⍉>Sym hinp
-  eins ← ≠pos
+  eins‿zwei ⇐ (≠pos) ⋈ +´{nm ← (hinp.Keys@) •HashMap hinp.Values@
+                          𝕩nm.Set '#' ⋄ ⊢´Sym nm }¨ pos ← ⍷⊏⍉>⊑Sym hinp
 }
-
-VI 6
+VI _is 6