From 59f86b7d26ee10ba84e778a6477fcda83724057a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 26 Jul 2020 08:07:38 -0400
Subject: Faster cases for full-rank and rank 0 in _rankOp_

---
 dzref_full | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dzref_full b/dzref_full
index b8322362..8eca20a6 100755
--- a/dzref_full
+++ b/dzref_full
@@ -144,6 +144,7 @@ _rankOp_←{
     c←×´s←𝕨Cell𝕩
     f⥊⊑⟜(⥊𝕩)¨∘((s⥊↕c)+c×⊢)¨↕×´f
   }
+  Enc↩(>⟜0+≥⟜=)◶⟨<⊢,Enc,<¨⊢⟩
   > ((0⊑k)Enc𝕨) 𝔽¨ ((1-˜≠)⊸⊑k)Enc𝕩
 }
 _scan←{
-- 
cgit v1.2.3