From 2b99c84e96ad15b9104f00c7be0f228d2867a280 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 12 Aug 2020 20:38:54 -0400 Subject: =?UTF-8?q?Move=20=E2=8A=98=20to=20the=20non-self-hosted=20part=20?= =?UTF-8?q?of=20the=20runtime?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/pr.bqn | 2 +- src/r.bqn | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/pr.bqn b/src/pr.bqn index e930e6c6..d9ae5ef4 100755 --- a/src/pr.bqn +++ b/src/pr.bqn @@ -24,7 +24,7 @@ Inc ← { } # Required functionality passed in as an argument -pnam ← ⟨"IsArray","Type","Log","GroupLen","GroupOrd"⟩∾names⊏˜chr⊐"!+-×÷⋆⌊=≤≢⥊⊑↕⌜`" +pnam ← ⟨"IsArray","Type","Log","GroupLen","GroupOrd"⟩∾names⊏˜chr⊐"!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘" E_isdef ← (3≤≠)◶⟨0,∧´⟨chr," ","←↩"⟩∊˜¨3⊸↑⟩ diff --git a/src/r.bqn b/src/r.bqn index f2c688d1..0385c9c6 100644 --- a/src/r.bqn +++ b/src/r.bqn @@ -1,8 +1,7 @@ # BQN runtime. Requires: -# IsArray Type Log !+-×÷⋆⌊=≤≢⥊⊑↕⌜` +# IsArray Type Log !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘ ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩} # LIMITED to number left operand result -⊘ ← {𝕨((1{𝔽}𝕨)-0)◶𝔽‿𝔾 𝕩} ⊢ ← {𝕩} ⊣ ← {𝕩}⊘{𝕨} ˜ ← {𝕩𝔽𝕨⊣𝕩} -- cgit v1.2.3