From e068da960323526bd7221e2a3a3c09a81c0a72a6 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 12 Dec 2020 16:23:45 -0500 Subject: Pass Decompose and Glyph into runtime --- src/pr.bqn | 2 +- src/r.bqn | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/pr.bqn b/src/pr.bqn index a10552a6..70d7771b 100755 --- a/src/pr.bqn +++ b/src/pr.bqn @@ -24,7 +24,7 @@ Inc ← { } # Required functionality passed in as an argument -def ← ⟨"Type","GetFill","Log","GroupLen","GroupOrd"⟩ +def ← ⟨"Type","Decompose","Glyph","GetFill","Log","GroupLen","GroupOrd"⟩ keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘" len ⇐ def+○≠keep ki ← chr⊐keep diff --git a/src/r.bqn b/src/r.bqn index 846fbb7c..dc727069 100644 --- a/src/r.bqn +++ b/src/r.bqn @@ -1,5 +1,7 @@ # BQN runtime. Requires: -# Type GetFill Log GroupLen GroupOrd !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘ +# Type Decompose Glyph GetFill Log GroupLen GroupOrd !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘ +Decompose +Glyph ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩} # LIMITED to number left operand result ⊢ ← {𝕩} -- cgit v1.2.3