From b0c73bfa487a8491ae5e3159520571bce6b8860d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 1 Sep 2020 14:25:15 -0400
Subject: Fix Rank operator with atomic argument

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 1d03c2d6..adc8e200 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -244,7 +244,7 @@ _rankOp_←{
     c←×´s←𝕨Cell𝕩
     f⥊⊑⟜(⥊𝕩)⌜∘((s⥊↕c)+c×⊢)⌜↕×´f
   }
-  Enc↩(>⟜0+≥⟜=)◶⟨<⊢,Enc,<⌜⊢⟩
+  Enc↩(>⟜0×1+≥⟜=)◶⟨<⊢,Enc,<⌜⊢⟩
   > ((0⊑k)Enc𝕨) 𝔽¨ ((1-˜≠)⊸⊑k)Enc𝕩
 }
 ⎉ ← _rankOp_
-- 
cgit v1.2.3