refact: minor clean up day 4.

Panadestein · Dec 4, 2024 · f44b7f7 · f44b7f7
1 parent 311b69f
commit f44b7f7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/aoc24.org b/src/aoc24.org
@@ -98,8 +98,8 @@ These definitions and imports are shared by the various puzzles:
   IV ← {
     inp ← >•FLines Input 𝕩
     t‿ts ← ⟨"XMAS"‿"SAMX", "MSAMS"‿"SMASM"‿"SSAMM"‿"MMASS"⟩
-    eins ⇐ +´t(≢∘⊢↑⍷){+´⟨⥊+´𝕨𝔽¨<𝕩, ⥊+´𝕨𝔽¨<⍉𝕩, ∾+˝𝕨𝔽⌜𝔾𝕩, ∾+˝𝕨𝔽⌜𝔾⌽⍉𝕩⟩}((+⌜´↕¨∘≢)⊸⊔) inp
-    zwei ⇐ +´⥊{ts≡¨<(⌽˘⊸∨=⌜˜↕3)/○⥊𝕩}⎉2 3‿3↕inp
+    eins ⇐ t ⍷{+´+´∘⥊¨⟨+´𝕨𝔽¨<𝕩, +´𝕨𝔽¨<⍉𝕩, ∾+˝𝕨𝔽⌜𝔾𝕩, ∾+˝𝕨𝔽⌜𝔾⌽⍉𝕩⟩}(⊢⊔˜·+⌜´↕¨∘≢) inp
+    xm ← ⌽˘⊸∨=⌜˜↕3 ⋄ zwei ⇐ +´⥊{ts≡¨<xm/○⥊𝕩}⎉2 3‿3↕inp
   }
   IV _is 4
 #+end_src

diff --git a/src/bqn/aoc24.bqn b/src/bqn/aoc24.bqn
@@ -35,7 +35,7 @@ III _is 3
 IV ← {
   inp ← >•FLines Input 𝕩
   t‿ts ← ⟨"XMAS"‿"SAMX", "MSAMS"‿"SMASM"‿"SSAMM"‿"MMASS"⟩
-  eins ⇐ +´t(≢∘⊢↑⍷){+´⟨⥊+´𝕨𝔽¨<𝕩, ⥊+´𝕨𝔽¨<⍉𝕩, ∾+˝𝕨𝔽⌜𝔾𝕩, ∾+˝𝕨𝔽⌜𝔾⌽⍉𝕩⟩}((+⌜´↕¨∘≢)⊸⊔) inp
-  zwei ⇐ +´⥊{ts≡¨<(⌽˘⊸∨=⌜˜↕3)/○⥊𝕩}⎉2 3‿3↕inp
+  eins ⇐ t ⍷{+´+´∘⥊¨⟨+´𝕨𝔽¨<𝕩, +´𝕨𝔽¨<⍉𝕩, ∾+˝𝕨𝔽⌜𝔾𝕩, ∾+˝𝕨𝔽⌜𝔾⌽⍉𝕩⟩}(⊢⊔˜·+⌜´↕¨∘≢) inp
+  xm ← ⌽˘⊸∨=⌜˜↕3 ⋄ zwei ⇐ +´⥊{ts≡¨<xm/○⥊𝕩}⎉2 3‿3↕inp
 }
 IV _is 4