aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r1.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/r1.bqn b/src/r1.bqn
index 2e9ac199..a1980747 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -898,7 +898,7 @@ PrimInverse ← INF _lookup_ ⟨
'<', {IX IsArray𝕩⋄IX 0==𝕩⋄0βŠ‘β₯Šπ•©}⊘(IA∘0)
'⊒', ⊒
'⊣', ⊒⊘(⊒⊣IXβˆ˜β‰‘)
- '∾', IA∘0 ⊘ {d←𝕩-β—‹=𝕨⋄IX(0βŠΈβ‰€βˆ§β‰€βŸœ1)dβ‹„l←dβ—Ά1‿≠𝕨⋄IX l≀≠𝕩⋄IX 𝕨≑dβ—ΆβŸ¨βŠ,lβŠΈβ†‘βŸ©π•©β‹„l↓𝕩}
+ '∾', IA∘0 ⊘ {d←𝕩-β—‹=𝕨⋄IX(0βŠΈβ‰€βˆ§β‰€βŸœ1)dβ‹„l←dβ—Άβ‰ β€Ώ1𝕨⋄IX l≀≠𝕩⋄IX (ToArray𝕨)≑dβ—ΆβŸ¨lβŠΈβ†‘,βŠβŸ©π•©β‹„l↓𝕩}
'≍', {IX 1 =≠𝕩⋄ βŠπ•©} ⊘ {IX 2 =≠𝕩⋄IX 𝕨≑ βŠπ•©β‹„1βŠπ•©}
'β‹ˆ', {IX ⟨1βŸ©β‰‘β‰’π•©β‹„0βŠ‘π•©} ⊘ {IX ⟨2βŸ©β‰‘β‰’π•©β‹„IX 𝕨≑0βŠ‘π•©β‹„1βŠ‘π•©}
'↑', Β―1βŠΈβŠ‘_invChk_↑ ⊘ (IA∘0)