diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-10-07 17:42:59 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-10-07 22:19:30 -0400 |
| commit | 860182712160ee17d194c2ab65a25744eecdab03 (patch) | |
| tree | eac5295870a8f9f1904e8f8c8429adc231423a4e /src | |
| parent | 40f4949831ed051f041a328bd0c092dfee36852b (diff) | |
Simplify train argument computation
Diffstat (limited to 'src')
| -rw-r--r-- | src/c.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -142,9 +142,9 @@ Parse ← {r‿nv←𝕨 os←↕∘≠⊸(⊣-T)⌾⌽¬ro∨ma⋄at←1+⊏⟜os⊸+/a "Role of the two sides in assignment must match" ! (⊏⟜er≡⊏⟜r)at r(×⟜¬-⊢)↩aa←g⊏asn←»+`gi⊏«⊸-(≠𝕩)↑/⁼at - ta←tr>(⊢∧2(|<≤)ps(⊢-T)+`)¬ro + ta←tr∧2(>∨|)ps(⊢-T)+`¬ro fa←/(ta∨ro∨«aa)<(r=1)∨»op - dy←fa⊏«(𝕩≠⊑bO)∧(tr∧r≥0)∨ro<r=0 + dy←fa⊏«(𝕩=⊑bO)<(tr∧r≥0)∨ro<r=0 ob←pr⊏/¯1(⊢-»)u←⍷∧pr←𝕩⊏˜pi←/𝕩<sep cn←pi∾lt←/𝕩≥ci←vi+nv⋄ob∾↩(ci-˜≠u)+lt⊏𝕩 s←𝕩=sep⋄fo←𝕩=2+⊑bB⋄ls←s∧fo<○IT lo←𝕩=4+⊑bB |