feat: remove spurious transpose

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

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/aoc24.org b/src/aoc24.org
@@ -98,7 +98,7 @@ 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
+    eins ⇐ t ⍷{+´+´∘⥊¨⟨+´𝕨𝔽¨<𝕩, +´𝕨𝔽¨<⍉𝕩, ∾+˝𝕨𝔽⌜𝔾𝕩, ∾+˝𝕨𝔽⌜𝔾⌽𝕩⟩}(⊢⊔˜·+⌜´↕¨∘≢) inp
     xm ← ⌽˘⊸∨=⌜˜↕3 ⋄ zwei ⇐ +´⥊{ts≡¨<xm/○⥊𝕩}⎉2 3‿3↕inp
   }
   IV _is 4

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
+  eins ⇐ t ⍷{+´+´∘⥊¨⟨+´𝕨𝔽¨<𝕩, +´𝕨𝔽¨<⍉𝕩, ∾+˝𝕨𝔽⌜𝔾𝕩, ∾+˝𝕨𝔽⌜𝔾⌽𝕩⟩}(⊢⊔˜·+⌜´↕¨∘≢) inp
   xm ← ⌽˘⊸∨=⌜˜↕3 ⋄ zwei ⇐ +´⥊{ts≡¨<xm/○⥊𝕩}⎉2 3‿3↕inp
 }
 IV _is 4