From 514c12c131780119536a39dbee4d12517b5d5c5f Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 21 Jun 2021 11:02:37 -0400
Subject: =?UTF-8?q?Use=20recursive=20doubling=20with=20=E2=88=BE=20for=20R?=
 =?UTF-8?q?eshape?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
 }
 
-- 
cgit v1.2.3