From 1a15fa1cb984dd1d6bd3f5c5b56e0169b1085edf Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 31 Jul 2020 10:47:53 -0400
Subject: Use dyadic inverse instead of inverting a train

---
 impl.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'impl.bqn')

diff --git a/impl.bqn b/impl.bqn
index f03d5c39..026c03f3 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -1,6 +1,6 @@
 ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}     # LIMITED to number left operand result
 ⊘ ← {𝕨((1{𝔽}𝕨)-0)◶𝔽‿𝔾 𝕩}
-#⊢ ← {𝕩}  # Prevents dyadic negative ⍟
+⊢ ← {𝕩}
 ⊣ ← {𝕩}⊘{𝕨}
 ˜ ← {𝕩𝔽𝕨⊣𝕩}
 ∘ ← {𝔽𝕨𝔾𝕩}
@@ -394,11 +394,11 @@ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
 
 _repeat_←{
   n←𝕨𝔾𝕩
-  f←0⊑𝕨⟨𝔽⟩⊘⟨𝕨𝔽⊢⟩𝕩
   l←u←0
   {!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}⚇0 n
   a←𝕩⋄_p←{𝔽∘⊣`(1+𝕩)⥊<a}
-  pos←F _p u ⋄ neg←F⁼_p-l
+  pos←(𝕨𝔽 ⊢)_p u
+  neg←(𝕨𝔽⁼⊢)_p-l
   (|⊑<⟜0⊑pos‿neg˜)⚇0 n
 }
 ⍟ ↩ _repeat_
-- 
cgit v1.2.3