From 377a1306f8dc9f9b85d4e16a14eec49b7a162891 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 11 Jul 2020 11:54:16 -0400 Subject: Separators can't be functions --- dc.bqn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dc.bqn b/dc.bqn index 96b425d9..f4066ed2 100755 --- a/dc.bqn +++ b/dc.bqn @@ -137,11 +137,11 @@ RevE←{ DParse ← {nv‿r𝕊𝕩: p←bB(⊣(≠⊸>ׯ1⋆2|⊢)⊐)𝕩 rev←p RevE𝕩⋄𝕩⊏˜↩rev⋄r⊏˜↩rev⋄p⊏˜↩rev - xf←⌽(¬𝕩∊bS∾0⊑bB)=○(⌈`(1+↕∘≠)⊸×)○⌽(¯1⌽2≤r)∨1≤r + xf←⌽(¬𝕩=0⊑bB)=○(⌈`(1+↕∘≠)⊸×)○⌽(¯1⌽2≤r)∨1≤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+`⊸⊏(¯1↓1∾ps)/f + tr←(⌈`↕∘≠⊸ׯ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)