aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xc.bqn4
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