From fb06ccf7264815a29f6ff8a6113b00b49f7e3318 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 11 Jul 2020 17:12:22 -0400 Subject: Simplify function application/argument logic --- dc.bqn | 6 +++--- 1 file 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 -- cgit v1.2.3