Day 5 shorter

jayfoad · Dec 5, 2022 · 595e144 · 595e144
1 parent 0855fba
commit 595e144
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/p5.dyalog b/p5.dyalog
@@ -1,5 +1,5 @@
 ⎕IO←1 ⋄ p q←{⍵⊆⍨×≢¨⍵}⊃⎕NGET'p5.txt'1
-p←~∘' '¨↓(0 1 0 0⍴⍨≢⊃p)⌿⍉↑1↓⊖p ⋄ q←⍎¨¨'\d+'⎕S'&'¨q
-f←{(⍺↓¨⍵),¨⍺⍺¨⌽⍺↑¨⍵} ⋄ g←{(-⊃⍺)0⍺⍺f@(1↓⍺)⊢⍵}
-⊃∘⌽¨⊃⌽g/(⌽q),⊂p ⍝ part 1
-⊃∘⌽¨⊃⊢g/(⌽q),⊂p ⍝ part 2
+p←~∘' '¨{⍵/⍨2=4|⍳≢⍵}↓⍉↑p ⋄ q←⍎¨¨'\d+'⎕S'&'¨q
+f←{(⍺⍺¨⌽⍺↑¨⍵),¨⍺↓¨⍵} ⋄ g←{(⊃⍺)0⍺⍺f@(1↓⍺)⊢⍵}
+⊃¨⊃⌽g/(⌽q),⊂p ⍝ part 1
+⊃¨⊃⊢g/(⌽q),⊂p ⍝ part 2