From 785f1eef53c8fa531cfc0403ffe1d82500e9ba95 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 31 Dec 2020 15:03:18 -0500
Subject: Only compute inverse if needed in Repeat

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 05245221..6c3678ed 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -583,7 +583,7 @@ _repeat_←{
   b←𝕨{𝕏⊣}˙⊘{𝕨˙{𝔽𝕏⊣}}0
   i←⟨𝕩⟩⋄P←B⊸{𝕎`i∾↕𝕩}
   pos←𝕗 P u
-  neg←𝕗 Inverse⊸P -l
+  neg←𝕗 0⊸<◶⟨i,Inverse⊸P⟩ -l
   (|⊑<⟜0⊑pos‿neg˙)⚇0 n
 }
 
-- 
cgit v1.2.3