aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdc.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/dc.bqn b/dc.bqn
index c8529c0b..96b425d9 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -141,7 +141,7 @@ DParse ← {nv‿r𝕊𝕩:
g←⍋+`p⋄𝕩⊏˜↩g⋄r⊏˜↩g⋄p⊏˜↩g
v←𝕩≥vi⋄a←𝕩∊2↑bG⋄op←r≥2⋄f←(¯1↓0∾1+g)⊏xf∾0
s←𝕩∊bS⋄o←p>0⋄ps←s∨o⋄lc←𝕩=5⊑bB
- tr←ps+`⊸⊏(0∾ps/g)⊏xf
+ tr←ps+`⊸⊏(¯1↓1∾ps)/f
tf←tr∧2(|<≤)ps(⊢-⌈`∘×)+`¬op
opa←op>1↓0∾˜ps∨a⋄os←⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬(1⌽r=3)∨¯1⊸⌽⊸∨op
oa←⌽/opa⋄fa←/(1⌽opa∧r=3)<((tr∨op)<f∨¯1⌽opa)∨tf∧a<○(⌈`(1+↕∘≠)⊸×)ps