From 3ea7eb8d18be52a989285e1a659be6ab76cc02b4 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 21 Nov 2020 11:31:49 -0500
Subject: Stop encoding bytecode with LEB128; that can be done later for
 serialization

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

(limited to 'src/e.bqn')

diff --git a/src/e.bqn b/src/e.bqn
index c242ce9f..506153ab 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -45,10 +45,7 @@ Explain ← {
     "00000110111001001101000100"  # Position determiner
   ⟩
   m ← { # Mask of instruction starts
-    a ← ba(⊣⊏˜≠⊸>×⊢)b
-    na← ∾⟜≠ (≠-(1+↕∘≠)⊸(»·⌈`×)⌾⌽) <⟜128 b
-    n ← 1+{(𝕩=⌜a) +˝∘× >⊏⟜na⍟𝕩↕≠a}↕3
-    ! ∧´ ↕∘≠⊸< n
+    n ← (↕≠b)+1+ba(⊣⊏˜≠⊸>×⊢)b
     Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟(0=¯1⊑⊢)
     (≠↑∾⟜≠Se 1∾0¨) n
   }
-- 
cgit v1.2.3