6 lines
289 B
APL
6 lines
289 B
APL
⎕IO←0
|
||
p←⍎¨⊃⎕NGET'input'1
|
||
m←25
|
||
⊢x←p⌷⍨m+⍸~(m↓p)∊¨{(,∘.<⍨⍳m)/,⍵}¨∘.+⍨¨¯1↓m,/p ⍝ Part 1
|
||
⍝+/∊{{(x=+/⍵)×(⌈/+⌊/)⍵}¨⍵,/p}¨2+⍳⍴p ⍝ Part 2
|
||
(⌈/+⌊/)p[{(1+1⊃⍵)+⍳⊃-/⍵}⊃⍸x=∘.-⍨+\p] ⍝ Part 2 (faster)
|