diff options
| -rwxr-xr-x | c.bqn | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1,4 +1,7 @@ #!/usr/bin/env bqn + +⊔↩(((↕1+(>⌈´))=¨<)∘⊣/¨(<↕∘≠⍠⊢)) + Parse←{ ⟨⟩Parse𝕩;args←𝕨⋄x←𝕩 lf‿tab←•UCS 10‿9 @@ -10,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 + s←e-(e∾l)⊏˜{u←(≠e)¨𝕩⋄{(𝕩⊏u)↩𝕨⊏˜𝕨⍋𝕩}¨´˘2↕⊔𝕩⋄u}⍟(0<≠)ed fe←f×(l-1)++`(-⊸≍s)⌾((e≍b)⊸⊏)l⥊0 fe⌊↩(l-1)-l↑(⌈`↕∘≠⊸×)⌾⌽1∾˜sep ia←+`l↑0∾f-l↑/⁼∧f/fe |
