diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-03 18:23:29 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-03 18:23:29 -0400 |
| commit | 9dc45458d6387ec043f2a2031baa742eea5f6f55 (patch) | |
| tree | 52b6d8350056f6c984ae0a10a206e634ac862d96 | |
| parent | fc8ccaaf84945b6913e4096941487afcf97b709a (diff) | |
No need for parens around modified assignment function
| -rwxr-xr-x | dc.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -39,12 +39,12 @@ Tokenize←{ id←⍷args∾(bA∊˜w/c)⍒⊸⊏i←(1-˜l×+`w)⊔c nv←+´bA∊˜⊑¨id c↩(w∨¬l∨c∊bW)/(vi+id⊐i)_ur_ w(vi+(≠id)+lu⊐lit)_ur_ cl c - c(/˜)↩¬(1∾1∾˜2⊸↓)⊸∧c∊bS + c/˜↩¬(1∾1∾˜2⊸↓)⊸∧c∊bS ⟨c,nv,nv-≠args,(nv↓id)∾lu⟩ } Parse←{ - a←𝕩∊(2↑bG)⋄at←1⌽a⋄𝕩(/˜)↩¬a⋄a(/˜)↩¬at + a←𝕩∊(2↑bG)⋄at←1⌽a⋄𝕩/˜↩¬a⋄a/˜↩¬at l←≠𝕩⋄sep←𝕩∊bS⋄𝕩↩(bF⊑˜⥊chF⊐<'⊣')¨_ur_ sep 𝕩⋄sep∨↩𝕩=2⊑bB o←𝕩=0⊑bB⋄c←𝕩=1⊑bB⋄v←a-˜𝕩≥vi⋄f←¬o∨c∨v∨sep na←(2×sep)+f×1+l↑0∾c∨v @@ -81,7 +81,7 @@ f64←127-3 GenFn←{ ⟨⟩GenFn𝕩; ⟨t,nVar,nLoc,lits⟩←𝕨Tokenize𝕩 - t(⊏˜)↩⍋+`-´<˘(2‿3⊏bB)=⌜t + t⊏˜↩⍋+`-´<˘(2‿3⊏bB)=⌜t nd←+´c←t=3⊑bB t↩((vi+nVar+≠lits)+↕∘≠)_ur_ c t ⟨a,na⟩←Parse t |
