From f44b7f714f13acb1d09e86297f169504fe2aa790 Mon Sep 17 00:00:00 2001
From: Panadestein <rpana92@gmail.com>
Date: Wed, 4 Dec 2024 11:36:41 +0100
Subject: [PATCH] refact: minor clean up day 4.

---
 src/aoc24.org     | 4 ++--
 src/bqn/aoc24.bqn | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/aoc24.org b/src/aoc24.org
index d1aa809..d82057a 100644
--- 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
index 48804bc..0e2c087 100644
--- 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