Use recursive doubling with ∾ for Reshape

1 files changed, 2 insertions, 2 deletions

diff --git a/src/r1.bqn b/src/r1.bqn
index 7ae64e3a..f4a17a28 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -616,8 +616,8 @@ Reshape←{
     s↩p⊣◶⊢‿a¨s
     {d∾↩(Fill d)⌜↕𝕩-n⋄n}⍟(n⊸<)⍟(3=t)lp×a
   } s
-  s⥊{
-    𝕩(0<n)◶⟨<∘Fill⊸(⊣⌜)⋄{i←¯1⋄m←n-1⋄{𝕩⋄(i+↩1-n×i=m)⊑d}⌜𝕩}⟩↕l
+  s⥊(0<n)◶{(<Fill𝕩)⊣⌜↕l}‿{
+    l >⟜≠◶⟨↑, ⊣(⊢∾-⟜≠↑⊢)÷⟜2⊸{𝕨𝕊⟜(∾˜)⍟(>⟜≠)𝕩}⟩ 𝕩
   }_fillBy_⊢⍟(1-l=n)d
 }