From 542e27e2d167669ad1209a336fefa43ef1632db9 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 8 Jun 2020 10:17:25 -0400
Subject: =?UTF-8?q?Use=20a=20different=20definition=20of=20=E2=8A=94?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 c.bqn | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3