Use dyadic inverse instead of inverting a train

1 files changed, 3 insertions, 3 deletions

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_