From ff9a4c2abd72ed4308f145f540673a9318404738 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 12 Jul 2020 18:40:56 -0400 Subject: Don't need to count left operands to find operator shift --- dc.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dc.bqn b/dc.bqn index 833e4c43..4eeb8d85 100755 --- a/dc.bqn +++ b/dc.bqn @@ -148,7 +148,7 @@ DParse ← {nv‿r𝕊𝕩: r-↩ps∨a⋄op←r≥2⋄ro←op∨1⌽r=3 tr←(⌈`↕∘≠⊸ׯ1⌽ps)⊏ro∨r≥1 tf←(a≤○(⌈`(1+↕∘≠)⊸×)ps)∧(⊢∧2(|<≤)ps(⊢-⌈`∘×)+`)¬ro - opa←op>1↓0∾˜ps∨a⋄os←0⌈1-˜⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬ro∨¯1⌽op + opa←op>1↓0∾˜ps∨a⋄os←⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬ro oa←⌽/opa⋄fa←/(tf∨¬tr)∧(ro∧1⌽opa)<(r=1)∨op<¯1⌽opa dy←fa⊏1↓0∾˜(tr∧r≥0)∨r=0 n←𝕩≥vi+nv⋄id←/n<𝕩≥vi⋄cn←/n∨𝕩≤¯1⊑bC⋄u←⍷ob←cn⊏𝕩 -- cgit v1.2.3