blob: 172343b419792be4f9af77694e2f56f5296a6c2d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
IsAsciiNum ⇐ ('0'⊸≤∧≤⟜'9')
# based on leah2's function
ReadInt ⇐ {
𝕨 𝕊 𝕩: '-'=⊑𝕩? -𝕨 𝕊 1↓𝕩;
𝕨 𝕊 𝕩: (𝕨⊸×+⊣)´∘⌽-⟜'0'𝕩
}
ReadDec ⇐ 10⊸ReadInt
SplitOn ⇐ ((⊢ (-1˙)⍟⊣¨ +`∘(1⊸»<⊢))∘(≡¨)⊔⊢)
SplitAt ← ((⊣≤↕∘≠∘⊢)⊔⊢)
_fix ⇐ {𝕩 𝕊∘⊢⍟≢ 𝔽 𝕩}
|