Compute train-ness from f (i.e. after depth-sorting), not xf

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