aboutsummaryrefslogtreecommitdiff
path: root/src/e.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'src/e.bqn')
-rw-r--r--src/e.bqn5
1 files changed, 1 insertions, 4 deletions
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
}