diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-20 17:03:35 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-20 17:03:35 -0400 |
| commit | 5eb2362d13a32c02b792fac777890265a6625f10 (patch) | |
| tree | 54beafbf90814d1a73ac596992d0f42b3db2c701 /src | |
| parent | 96db3c38e9e9c6e4f8c99663a66671add2dea979 (diff) | |
Move ⍕ uses in cjs.bqn to a single definition
Diffstat (limited to 'src')
| -rwxr-xr-x | src/cjs.bqn | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index 2a282b84..e2e8b057 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -14,14 +14,13 @@ Esc←{ } Str ← "str("""∾Esc∾""")"˜ # A BQN string Char ← "'"(∾∾⊣)Esc∘⥊ # A BQN character -FP ← ∞⊸=◶⟨⍕,"Infinity"⟩ # Format positive number +F ← ⍕ # Format number +FP ← ∞⊸=◶⟨F,"Infinity"⟩ # Format positive number Num ← 0⊸≤◶⟨"-"∾FP∘|,FP⟩ # Format number -F ← ⍕ # Format number - compile ← •Import "c.bqn" useInd ← "-i"≡⊑args←•args ⋄ args↓˜↩useInd -Comp ← (3+useInd) ↑ ((<"runtime" Ind ⍕)¨↕62)⊸Compile +Comp ← (3+useInd) ↑ ((<"runtime" Ind F)¨↕62)⊸Compile J ← ∾∾⟜(@+10)¨ Fconst ← ≡◶⟨@⊸≤◶Num‿Char, Str, ⊑⟩ Fout ← (≠↑⟨F,Fconst,L F¨,F⟩˙) {L𝕎¨𝕩}¨ ⊢ |