diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-10-27 20:10:07 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-10-27 20:11:32 -0400 |
| commit | a436a71a083f410fd58d86e8d228470c68c24b91 (patch) | |
| tree | 60b8c00203557d3c51536ab4ad7e07688f2b7d1f /src/r1.bqn | |
| parent | 9dd0a57d4d88202c335ab1a746e286fdd523cab2 (diff) | |
Keep runtime from passing length ¯1 to GroupLen in ⟨¯1⟩⊔⟨⟩
Diffstat (limited to 'src/r1.bqn')
| -rw-r--r-- | src/r1.bqn | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -735,7 +735,7 @@ Reshape←{ _group←{ "⊔: Grouping argument must consist of integers" ! 1×´Int⌜𝕩 "⊔: Grouping argument values cannot be less than ¯1" ! 1×´¯1⊸≤⌜𝕩 - GL←GroupLen⋄𝕩↩𝕨(-˜⟜≠{GL↩(𝕨⊑𝕩)GL⊢⋄𝕨↑𝕩}⊢)⍟(0⊘⊣)𝕩 + GL←GroupLen⋄𝕩↩𝕨(-˜⟜≠{GL↩(0⌈𝕨⊑𝕩)GL⊢⋄𝕨↑𝕩}⊢)⍟(0⊘⊣)𝕩 d←(l←GL𝕩)GroupOrd𝕩 i←0⋄(𝔽d⊏˜{(i+↩𝕩)⊢i⊸+⌜↕𝕩})⌜l } |