aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdc.bqn6
1 files changed, 3 insertions, 3 deletions
diff --git a/dc.bqn b/dc.bqn
index ce5183a1..6c17e619 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -142,10 +142,10 @@ DParse ← {nv‿r𝕊𝕩:
s←𝕩∊bS⋄ps←s∨o⋄a←𝕩∊2↑bG
r-↩ps∨a⋄op←r≥2⋄ro←1⌽r=3
tr←(⌈`↕∘≠⊸ׯ1⌽ps)⊏r≥1
- tf←(a≤○(⌈`(1+↕∘≠)⊸×)ps)∧tr∧2(|<≤)ps(⊢-⌈`∘×)+`¬ro∨op
+ tf←(a≤○(⌈`(1+↕∘≠)⊸×)ps)∧2(|<≤)ps(⊢-⌈`∘×)+`¬ro∨op
opa←op>1↓0∾˜ps∨a⋄os←⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬ro∨¯1⊸⌽⊸∨op
- oa←⌽/opa⋄fa←/(ro∧1⌽opa)<((tr∨op)<(r=1)∨¯1⌽opa)∨tf
- dy←fa⊏1↓0∾˜((r≥0)∧tr>tf)∨r=0
+ 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⊏𝕩
lo←(o/𝕩)=4⊑bB⋄l←/𝕩=5⊑bB⋄ll←1+lo/1(↓--⊸↓)(o∾1)/+`s∾0
dr←/s>o+`⊸⊏0∾lo