Flatten structure of paren parent computation code

1 files 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