Day 23 part 2.

jayfoad · Dec 28, 2018 · ef9ac92 · ef9ac92
1 parent 4ce5953
commit ef9ac92
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/p23.dyalog b/p23.dyalog
@@ -2,3 +2,8 @@
 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⊢⍵}¨
+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}
+⌊/+/¨f≢p ⍝ part 2