diff options
| -rwxr-xr-x | c.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |
