From b3577ac65fd5ae9fc3c59e9c85053afa97b8314a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 12 Aug 2020 20:55:03 -0400
Subject: =?UTF-8?q?Extend=20=E2=89=A2=20later?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 0385c9c6..d84c93fb 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -19,7 +19,6 @@ Nat←IsArray◶⟨0⊸≤×⌊⊸=,0⟩
 > ←            (1-≤)
 ⌊ ↩ ⌊        ⊘ (>⊑{𝕨‿𝕩})
 ⌈ ← -∘⌊∘-    ⊘ (<⊑{𝕨‿𝕩})
-≢ ↩ IsArray◶⟨⟩‿≢   # LIMITED to monadic case
 ≠ ← (0<=)◶⟨1⋄0⊑≢⟩  # LIMITED to monadic case
 
 _fold←{
@@ -142,6 +141,7 @@ match←{(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨
 Depth←IsArray◶0‿{1+0(⊣-≤×-)´Depth⌜⥊𝕩}
 
 ≡ ← Depth          ⊘ Match
+≢ ↩ IsArray◶⟨⟩‿≢   ⊘ (1-Match)
 
 Merge←{
   c←≢0⊑⥊𝕩
@@ -188,8 +188,6 @@ Range←{
   IsArray◶I‿M 𝕩
 }
 
-≢ ↩ ≢              ⊘ (¬Match)
-
 
 Pair ← {⟨𝕩⟩} ⊘ {⟨𝕨,𝕩⟩}
 
-- 
cgit v1.2.3