aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-13 21:19:44 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-13 21:19:44 -0400
commit9af53d6dbda32b8c132a9b9efbced300887a6671 (patch)
treec42490953cb48d0b7a58f560d777ee4555593b24 /src
parented03290bd8bd2cd84e65d18508de22b4f39689c6 (diff)
Use » to get strides in GroupGen
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn2
1 files changed, 1 insertions, 1 deletions
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←{