From a2eeb3110d951ae4e4967dd8ba0d85b0be0fb248 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 6 Aug 2020 16:00:06 -0400
Subject: Avoid using Occurrence Count in LEBv

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index a4202605..0dda3c25 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -71,7 +71,7 @@ LitVal←(⊑("'"∾'"')⊐⊏)◶⟨1⊸⊑,1⊸↓,ReadNum⟩
 LEBv ← {
   b←128
   l←⌊b⋆⁼1⌈𝕩
-  o←⍋⍋⊒/1+l
+  o←⍋⍋((↕¯1⊑⊢)-/⟜(≠↑0∾⊢))⟜(+`)1+l
   o⊏l{f←×𝕨⋄(𝕨-1)(b⊸(×⟜f+|)∾𝕊⟜(⌊÷⟜b)○(f⊸/))⍟(∨´f)𝕩}𝕩
 }
 
-- 
cgit v1.2.3