From 8a4b759b0da2f6c62f260be8800887a9f48deb80 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 31 Dec 2020 15:00:08 -0500
Subject: =?UTF-8?q?Avoid=20applying=20function=20=F0=9D=95=A8=20to=20?=
 =?UTF-8?q?=F0=9D=95=A9=20in=20Repeat?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/r.bqn b/src/r.bqn
index 7e8a7ec1..05245221 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -580,9 +580,10 @@ _repeat_←{
   n←𝕨𝔾𝕩
   l←u←0
   {"⍟: Repetition numbers in 𝕨 must be integers"!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}⚇0 n
-  a←𝕩⋄_p←{𝔽∘⊣`⟨a⟩∾↕0+𝕩}
-  pos←(𝕨𝔽 ⊢)_p u
-  neg←(𝕨𝔽⁼⊢)_p-l
+  b←𝕨{𝕏⊣}˙⊘{𝕨˙{𝔽𝕏⊣}}0
+  i←⟨𝕩⟩⋄P←B⊸{𝕎`i∾↕𝕩}
+  pos←𝕗 P u
+  neg←𝕗 Inverse⊸P -l
   (|⊑<⟜0⊑pos‿neg˙)⚇0 n
 }
 
-- 
cgit v1.2.3