3 lines
204 B
APL
3 lines
204 B
APL
p←↑¨{⍵⊆⍨~⍵∊':- '}¨⊃⎕NGET'input'1
|
|
+/{((⍎1⌷⍵),1+⍎2⌷⍵)(1=⍸)+/(⊃3⌷⍵)⍷4⌷⍵}¨p ⍝ Part 1
|
|
+/{≠/(⊃3⌷⍵)=(4⌷⍵)[⍎¨↓(⊂1 2)⌷⍵]}¨p ⍝ Part 2
|