From 9af53d6dbda32b8c132a9b9efbced300887a6671 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 13 Sep 2020 21:19:44 -0400
Subject: =?UTF-8?q?Use=20=C2=BB=20to=20get=20strides=20in=20GroupGen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 34d0dbf8..5132b453 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -423,7 +423,7 @@ GroupGen←{
   "𝕨⊔𝕩: Lengths of components of 𝕨 must be compatible with 𝕩" ! ∧´(Join≢⌜𝕨)=n↑≢𝕩
   l←≠⌜𝕨↩⥊⌜𝕨
   S←⊏⟜(𝕩⥊˜⟨×´l⟩∾n Cell 𝕩)
-  (1≠≠)◶(S _group 0⊸⊑)‿(S⌜ ·+⌜⌜´ (⌽×`⟨1⟩∾⌽1↓l) × ⊢_group⌜) 𝕨
+  (1≠≠)◶(S _group 0⊸⊑)‿(S⌜ ·+⌜⌜´ (⌽×`1»⌽l) × ⊢_group⌜) 𝕨
 }
 
 Pick1←{
-- 
cgit v1.2.3