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