[2024][uiua][4.x] refactoring

1 week ago · 44edcbac1a
parent ca3a78eafe
commit 44edcbac1a
1 changed files with 3 additions and 3 deletions
--- a/2024/uiua/day_04.ua
+++ b/2024/uiua/day_04.ua
@ -13,12 +13,12 @@ $ MXMXAXMASX
 ⊜∘≠@\n.
 Input ←
-Search ← /+♭≡(◇⌕) ⊙¤
+Search ← /+♭≡(◇⌕) ♭≡[⍥₃⊸(⍉⇌)] ⊙¤
 Diagonal ← ≡⊏×⟜⊞=.+₁⇡⟜↯4 "\WXMAS"
-Part₁    ← Search {∩⍥₃⊸(⍉⇌) Diagonal ¤"XMAS"}
+Part₁    ← Search {Diagonal ¤"XMAS"}
-Part₂ ← Search [⍥₃⊸(⍉⇌)]↯3_3"M\WM\WA\WS\WS"
+Part₂ ← Search {↯3_3"M\WM\WA\WS\WS"}
 $Part₁ Part₁ Input
 $Part₂ Part₂ Input