4 lines
327 B
APL
4 lines
327 B
APL
input ← (((10⍴1),0,(4⍴1))⊆⊢)¨' '(≠⊆⊢)¨⊃⎕NGET '../.cache/2021/8' 1
|
||
mat ← ⍎¨10 3⍴'632222521532442531631322742642'
|
||
⎕ ← +/((2 3 4 7)∊⍨⊢)¨∊≢¨¨⊃↓⍉⌽↑input
|
||
⎕ ← +/{a b←⍵⋄l←{⊃(⍵=≢¨a)/a}¨4 2⋄10⊥{1-⍨mat⍳(≢⍵)(≢⍵∩⊃l)(≢⍵∩2⊃l)}¨b}¨input
|