From 5eb2362d13a32c02b792fac777890265a6625f10 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Tue, 20 Apr 2021 17:03:35 -0400 Subject: =?UTF-8?q?Move=20=E2=8D=95=20uses=20in=20cjs.bqn=20to=20a=20singl?= =?UTF-8?q?e=20definition?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cjs.bqn | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src') 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𝕎¨𝕩}¨ ⊢ -- cgit v1.2.3