aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-12-12 16:23:45 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-12-12 16:23:45 -0500
commite068da960323526bd7221e2a3a3c09a81c0a72a6 (patch)
treed212bf8730b562bee36151e343c5c4d20c760e6f /src
parent9543711d3e87382aa8a90810b243754895af149b (diff)
Pass Decompose and Glyph into runtime
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
⊢ ← {𝕩}