From eaa73b3eb12428419138f42dda37caa837714933 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 12 Jul 2020 17:44:03 -0400 Subject: Account for operands when finding trains --- dc.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dc.bqn b/dc.bqn index 020ef566..5c2d8a59 100755 --- a/dc.bqn +++ b/dc.bqn @@ -146,7 +146,7 @@ DParse ← {nv‿r𝕊𝕩: g⊏˜↩⍋gr⊏sl⋄gr↩g⊏rev⋄𝕩⊏˜↩gr⋄r⊏˜↩gr⋄o⊏˜↩gr⋄l←/gr⊏sr>sl s←𝕩∊bS⋄ps←s∨o∨gr⊏sl⋄a←𝕩∊2↑bG r-↩ps∨a⋄op←r≥2⋄ro←op∨1⌽r=3 - tr←(⌈`↕∘≠⊸ׯ1⌽ps)⊏r≥1 + tr←(⌈`↕∘≠⊸ׯ1⌽ps)⊏ro∨r≥1 tf←(a≤○(⌈`(1+↕∘≠)⊸×)ps)∧2(|<≤)ps(⊢-⌈`∘×)+`¬ro opa←op>1↓0∾˜ps∨a⋄os←⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬ro∨¯1⌽op oa←⌽/opa⋄fa←/(tf∨¬tr)∧(ro∧1⌽opa)<(r=1)∨op<¯1⌽opa -- cgit v1.2.3