15 lines
456 B
BQN
15 lines
456 B
BQN
#!/usr/bin/env bqn
|
||
|
||
# Cut 𝕩 at occurrences of 𝕨, removing separators and empty segments
|
||
# (BQNcrate phrase).
|
||
Split ← (¬-˜⊢×·+`»⊸>)∘≠⊔⊢
|
||
|
||
# Natural number from base-10 digits (BQNcrate phrase).
|
||
Base10 ← 10⊸×⊸+˜´∘⌽
|
||
|
||
# Parse any number of space-separated numbers from string 𝕩.
|
||
ParseNums ← {Base10¨ -⟜'0' ' ' Split 𝕩}
|
||
|
||
# •GetLine is a nonstandard CBQN extension.
|
||
•Show ⥊⟜(↕×´) ParseNums •GetLine@
|