aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn26
1 files changed, 13 insertions, 13 deletions
diff --git a/src/r.bqn b/src/r.bqn
index b4f07497..91b222c5 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -729,6 +729,19 @@ Identity ← {𝕏0} ("´: Identity not found"!0˙) _lookup_ ⟨
'>',0 , '≥',1
+structPrimClass ← {(∾𝕩)_glyphLookup_((/∾≠)≠⌜𝕩)} ⥊⌜ ⟨
+ '⊢'‿'⊣'‿'˜'‿'∘'‿'○'‿'⊸'‿'⟜'‿'⊘'‿'◶'
+ '='‿'≠'‿'≢'
+ '<'
+ '≍'
+ '↕'‿'/'‿'»'‿'«'‿'⊔'
+ '⥊'‿'↑'‿'↓'‿'⌽'‿'⍉'‿'⊏'‿'⊑'
+# >
+# ∾
+# ˘⎉¨⌜
+# ⚇
+⟩
+
IA ← "⁼: Inverse failed"⊸!
IX ← "⁼: Inverse does not exist"⊸!
INF← "⁼: Inverse not found"!0˙
@@ -824,16 +837,3 @@ FuncInverse ← (⊑ ⊣◶⟨
⟩ 1⊸↓) {Decompose𝕩}
Inverse ← Type◶(3‿1‿2/{⊢⊣𝕩IX∘≡⊢}‿FuncInverse‿("Cannot invert modifier"!0˙))
⁼ ↩ {𝕗 (≢∧INF˙⊸≢)◶0‿(5‿_inv_≢0‿¯2⊏Decompose∘⊢)◶⊢‿{𝕏_inv_(𝕎_invChk_𝕏)} Inverse 𝕗}
-
-structPrimClass ← {(∾𝕩)_glyphLookup_((/∾≠)≠¨𝕩)} ⥊¨ ⟨
- '⊢'‿'⊣'‿'˜'‿'∘'‿'○'‿'⊸'‿'⟜'‿'⊘'‿'◶'
- '='‿'≠'‿'≢'
- '<'
- '≍'
- '↕'‿'/'‿'»'‿'«'‿'⊔'
- '⥊'‿'↑'‿'↓'‿'⌽'‿'⍉'‿'⊏'‿'⊑'
-# >
-# ∾
-# ˘⎉¨⌜
-# ⚇
-⟩