aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/r.bqn b/src/r.bqn
index 65cf5bca..7123c906 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -47,7 +47,8 @@ _qSearch ← {+´·×`𝕗(1-=)⌜<}
_glyphLookup_ ← {
{PrimInd𝕩} ⊑ ((𝕘⊑˜𝕗_qSearch)⌜glyphs)˙
}
-IsJoin ← (glyphs _qSearch'∾') = {PrimInd𝕩}
+_isGlyph ← { (glyphs _qSearch 𝕗) = {PrimInd𝕩} }
+IsJoin ← '∾'_isGlyph
Cell←{(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}⟜≢
@@ -791,7 +792,7 @@ Mod1Inverse ← INF˙ _lookup_ ⟨
⟩ {
0⊸⊑ {𝕏𝕨}⟜𝔽 1⊸⊑
}
-IsConstant ← (3≤Type)◶⟨1 ⋄ 4‿˙ ≡ 0‿¯1⊏{Decompose𝕩}⟩
+IsConstant ← (3≤Type)◶⟨1 ⋄ ∧´ ⟨4⊸≡,'˙'_isGlyph⟩ {𝕎𝕩}¨ 0‿¯1⊏{Decompose𝕩}⟩
Mod2Inverse ← INF˙ _lookup_ ⟨
'∘', AtopInverse
'○', {Fi←𝕎⁼⋄𝕏⁼ Fi⊘(𝕏⊸Fi)}