aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rwxr-xr-xsrc/pr.bqn2
-rw-r--r--src/r.bqn4
2 files changed, 4 insertions, 2 deletions
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
⊢ ← {𝕩}