7 lines
353 B
BQN
7 lines
353 B
BQN
P←(10⊸×⊸+˜´∘⌽0∾-⟜'0') # string->number, 0 for empty string
|
||
i←P¨¨(+`0=≠¨)⊸⊔•FLines"input" # parse input as list of lists
|
||
# Alternative version, with bqn-libs
|
||
#str ← •Import"../bqn-libs/strings.bqn"
|
||
#i ← str.ToNats¨ (2⥊@+10) str.Split •FChars"input"
|
||
•Show ⌈´+´¨i # part 1
|
||
•Show +´3↑∨+´¨i # part 2
|