aboutsummaryrefslogtreecommitdiff
path: root/dc.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-12 18:40:56 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-12 18:40:56 -0400
commitff9a4c2abd72ed4308f145f540673a9318404738 (patch)
treed02057c88469279a58891328487f2d3514b13029 /dc.bqn
parenta0e7f830446fa863b9fcfb2e5843962a5597e0f5 (diff)
Don't need to count left operands to find operator shift
Diffstat (limited to 'dc.bqn')
-rwxr-xr-xdc.bqn2
1 files changed, 1 insertions, 1 deletions
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⊏𝕩