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@
|