From 8a54e9682d44dc568c5fb05be35bed8dacbc2891 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 11 Jul 2020 11:37:56 -0400
Subject: Compute train-ness from f (i.e. after depth-sorting), not xf

---
 dc.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3