diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-08 10:17:25 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-08 10:17:25 -0400 |
| commit | 542e27e2d167669ad1209a336fefa43ef1632db9 (patch) | |
| tree | 8dcdb25ff1b15010cfed35aee9874d416745b482 | |
| parent | 4de8120b4f38494452205753e9cb481f22e1c0e9 (diff) | |
Use a different definition of ⊔
| -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 |
