aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-06-08 10:17:25 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-06-08 10:17:25 -0400
commit542e27e2d167669ad1209a336fefa43ef1632db9 (patch)
tree8dcdb25ff1b15010cfed35aee9874d416745b482
parent4de8120b4f38494452205753e9cb481f22e1c0e9 (diff)
Use a different definition of ⊔
-rwxr-xr-xc.bqn5
1 files changed, 4 insertions, 1 deletions
diff --git a/c.bqn b/c.bqn
index 087075cb..82dd2bef 100755
--- a/c.bqn
+++ b/c.bqn
@@ -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