5 lines
206 B
APL
5 lines
206 B
APL
input ← ⍎¨','(≠⊆⊢)⊃⊃⎕NGET '../.cache/2021/6' 1
|
||
⎕PP←32
|
||
solve ← {+/({((⊃⍵+⊢)@7)1⌽⍵}⍣⍵) ⊢⌿⍉{⍺,1-⍨≢⍵}⌸input,⍨1-⍨⍳9}
|
||
⎕ ← solve 80
|
||
⎕ ← solve 256
|