From f6808e1b010fc389cd2aee8531ac35520c01d3be Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 8 Jun 2020 20:15:36 -0400
Subject: Flatten structure of paren parent computation code

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

diff --git a/c.bqn b/c.bqn
index 82dd2bef..88e74aa6 100755
--- a/c.bqn
+++ b/c.bqn
@@ -1,6 +1,6 @@
 #!/usr/bin/env bqn
 
-⊔↩(((↕1+(>⌈´))=¨<)∘⊣/¨(<↕∘≠⍠⊢))
+⊔↩((↕1+(>⌈´))=¨<)∘⊣ /¨⟜< ↕∘≠⍠⊢
 
 Parse←{
   ⟨⟩Parse𝕩;args←𝕨⋄x←𝕩
@@ -13,7 +13,7 @@ Parse←{
   na←(2×sep)+f×1+l↑0∾c∨v
   e←/c⋄d←+`o-c
   ed←e⊏d⋄b←(⍋⍋ed)⊏(⍋⊏⟜d)⊸⊏/o
-  s←e-(e∾l)⊏˜{u←(≠e)¨𝕩⋄{(𝕩⊏u)↩𝕨⊏˜𝕨⍋𝕩}¨´˘2↕⊔𝕩⋄u}⍟(0<≠)ed
+  g←⊔ed∾0⋄s←e-(e⊏˜∾(⍋⊏⊣)¨´⍉2↕g)⌾((∾1↓g)⊸⊏)l¨e
   fe←f×(l-1)++`(-⊸≍s)⌾((e≍b)⊸⊏)l⥊0
   fe⌊↩(l-1)-l↑(⌈`↕∘≠⊸×)⌾⌽1∾˜sep
   ia←+`l↑0∾f-l↑/⁼∧f/fe
-- 
cgit v1.2.3