From 860182712160ee17d194c2ab65a25744eecdab03 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 7 Oct 2020 17:42:59 -0400
Subject: Simplify train argument computation

---
 src/c.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 84060db8..dc2184c5 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -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
-- 
cgit v1.2.3