Tweak.

jayfoad · Dec 29, 2018 · 2d7c7ca · 2d7c7ca
1 parent f4ff4f3
commit 2d7c7ca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/p23.dyalog b/p23.dyalog
@@ -3,7 +3,7 @@ p←↑⍎¨¨'-?\d+'⎕S'&'¨⊃⎕NGET'p23.txt'1
 r←⊢/p ⋄ p←0 ¯1↓p
 +/{(⍵⌷r)≥+/|p-⍤1⊢⍵⌷p}⊃⍒r ⍝ part 1
 
-h←{+/r≥+/0⌈⍺-⍨|p-⍤1⊢⍵}¨
+h←{+/r≥+/0⌈⍺-⍨|p-⍤1⊢⍵}
 f←{(2*⌈2⍟⌈/,|p)(⍵ g)⊂3/0}
-g←{0=≢w←⍵/⍨⍺⍺≤t←⍺ h ⍵:f⌈/t ⋄ ⍺=0:w ⋄ ⍺=1:0 ∇,(¯1+,⍳3/3)∘.+w ⋄ (⍺÷2)∇,((⍺÷2)×¯1*,⍳3/2)∘.+w}
+g←{0=≢w←⍵/⍨⍺⍺≤t←⍺ h¨⍵:f⌈/t ⋄ ⍺=0:w ⋄ ⍺=1:0 ∇,(¯1+,⍳3/3)∘.+w ⋄ (⍺÷2)∇,w∘.+(⍺÷2)×¯1*,⍳3/2}
 ⌊/+/¨f≢p ⍝ part 2