From 7c5a852ea5abd733100125eea1899846547952d4 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 7 Jun 2020 10:04:32 -0400
Subject: Fix Group ordering

---
 c.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/c.bqn b/c.bqn
index 11e170c3..dc691210 100755
--- a/c.bqn
+++ b/c.bqn
@@ -5,7 +5,7 @@ Parse←{
   na←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
   ia←+`l↑0∾f-l↑/⁼∧f/fe
   sel←¬∘⊏⟜(o∨c)⊸/⍋(fe⌈↕l)-ia
-- 
cgit v1.2.3