From 980ad57073f67f4f26d3d3fd890ac089c409fab8 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 28 Jun 2020 19:57:32 -0400 Subject: Simpler way to find containing function --- c.bqn | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/c.bqn b/c.bqn index 39aef9ff..e2b213ad 100755 --- a/c.bqn +++ b/c.bqn @@ -51,10 +51,7 @@ Parse←{ l←≠𝕩⋄sep←𝕩∊bS⋄𝕩↩(bF⊑˜chF⊐<'⊣')¨⌾(sep⊸/)𝕩 o←𝕩=0⊑bB⋄c←𝕩=1⊑bB⋄v←a-˜𝕩≥vi⋄f←¬o∨c∨v∨sep na←(2×sep)+f×1+l↑0∾c∨v - e←/c⋄d←+`o-c - ed←e⊏d⋄b←(⍋⍋ed)⊏(⍋⊏⟜d)⊸⊏/o - g←⊔ed∾0⋄s←e-(e⊏˜∾(<(⍋⊏⊣)´)˘2↕g)⌾((∾1↓g)⊸⊏)l¨e - fe←f×(l-1)++`(-⊸≍s)⌾((e≍b)⊸⊏)l⥊0 + d←+`o-c⋄fe←f×1-˜(+`⌾((⍋d)⊸⊏)o)⊏l∾(⍋⊏⟜d)⊸⊏/c fe⌊↩(l-1)-l↑(⌈`↕∘≠⊸×)⌾⌽1∾˜sep ia←+`l↑0∾f-l↑/⁼∧f/fe sel←¬∘⊏⟜(o∨c)⊸/⍋(fe⌈↕l)-ia -- cgit v1.2.3