Day 24 part 2 with incremental padding

jayfoad · Dec 24, 2020 · 37bf53c · 37bf53c
1 parent 5eabfb4
commit 37bf53c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/p24.dyalog b/p24.dyalog
@@ -1,6 +1,6 @@
 e se sw w nw ne←(0 1)(1 1)(1 0)(0 ¯1)(¯1 ¯1)(¯1 0)
 p←{⊃+/⍎¨'[ns]?.'⎕S'&'⊢⍵}¨⊃⎕NGET'p24.txt'1
 +/2|{≢⍵}⌸p ⍝ part 1
-pad←{(⍺+⍺+⍴⍵)↑(-⍺+⍴⍵)↑⍵}
-A←3 3⍴1 1 0 1 0 1 0 1 1 ⋄ f←{2=n+⍵∧1=n←{+/,A×⍵}⌺3 3⊢⍵}
-+/,f⍣100⊢100 pad {a←0⍴⍨⊃⌈/⍵ ⋄ a[⍵]+←1 ⋄ 2|a}1+p-⌊/p ⍝ part 2
+A←3 3⍴1 1 0 1 0 1 0 1 1
+f←{2=n+⍵∧1=n←{+/,A×⍵}⌺3 3⊢⍵}{0⍪0⍪⍨0,0,⍨⍵}
++/,f⍣100{a←0⍴⍨⊃⌈/⍵ ⋄ a[⍵]+←1 ⋄ 2|a}1+p-⌊/p ⍝ part 2