feat: full day 8.

Panadestein · Dec 8, 2024 · b3d50cd · b3d50cd
1 parent 2b01d04
commit b3d50cd
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/src/aoc24.org b/src/aoc24.org
@@ -154,15 +154,15 @@ to get more context. These definitions and imports are shared by the various puz
 #+begin_src bqn :tangle ./bqn/aoc24.bqn
   VIII ← {
     n ← ≠⊑inp‿ant ← (⊢⋈1↓⍷∘⥊)>•FLines Input𝕩
-    +´(∧´≥⟜0∧<⟜n)¨⍷∾{
-    (⍷∘∾⊢/○⥊˜·<⌜˜↕∘≠)(⊣-˜2⊸×){𝔽´¨⌽⊸⋈𝕩‿𝕨}⌜˜/○⥊⟜(↕≢)𝕩
-    }¨ant=<inp
+    _tcd ← {(𝕨⊸×-(𝕨-1)×⊣)⌜˜⊸𝔽/○⥊⟜(↕≢)𝕩}
+    eins ⇐ +´(∧´≥⟜0∧<⟜n)¨⍷∾ 2 (⥊∘⊣/˜·¬⥊⊸∊)_tcd¨ ant=<inp
+    zwei ⇐ +´(∧´≥⟜0∧<⟜n)¨⍷∾∾ (↕n) ⥊∘⊣_tcd¨⌜<ant=<inp
   }
-  VIII 8
+  VIII _is 8
 #+end_src
 
 #+RESULTS:
-: 291
+: ⟨ 291 1015 ⟩
 
 #+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
@@ -68,8 +68,8 @@ VII _is 7
 
 VIII ← {
   n ← ≠⊑inp‿ant ← (⊢⋈1↓⍷∘⥊)>•FLines Input𝕩
-  +´(∧´≥⟜0∧<⟜n)¨⍷∾{
-  (⍷∘∾⊢/○⥊˜·<⌜˜↕∘≠)(⊣-˜2⊸×){𝔽´¨⌽⊸⋈𝕩‿𝕨}⌜˜/○⥊⟜(↕≢)𝕩
-  }¨ant=<inp
+  _tcd ← {(𝕨⊸×-(𝕨-1)×⊣)⌜˜⊸𝔽/○⥊⟜(↕≢)𝕩}
+  eins ⇐ +´(∧´≥⟜0∧<⟜n)¨⍷∾ 2 (⥊∘⊣/˜·¬⥊⊸∊)_tcd¨ ant=<inp
+  zwei ⇐ +´(∧´≥⟜0∧<⟜n)¨⍷∾∾ (↕n) ⥊∘⊣_tcd¨⌜<ant=<inp
 }
-VIII 8
+VIII _is 8