Non-pervasive Reverse and Rotate definitions

1 files changed, 4 insertions, 4 deletions

diff --git a/src/r.bqn b/src/r.bqn
index d84c93fb..c4b4651b 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -120,6 +120,9 @@ SelSub←{
   }𝕩
 }
 
+Reverse ← {!1≤=𝕩 ⋄ l←≠𝕩 ⋄ ((l-1)⊸-⌜↕l) Select 𝕩}
+Rot ← {!Int𝕨 ⋄ l←≠𝕩 ⋄ 𝕨-↩l×⌊𝕨÷l ⋄ ((𝕨+⊢-l×(l-𝕨)≤⊢)⌜↕l) Select 𝕩}
+
 _under_←{
   i←↕l←1×´s←≢𝕩
   v←⥊𝕨𝔽○𝔾𝕩
@@ -275,14 +278,11 @@ Windows←{
   𝕨{(∾⟜(𝕨≠⊸↓≢𝕩)∘≢⥊>)<⌜⊸⊏⟜𝕩¨s(¬+⌜○Range⊢)⥊𝕨}⍟(0<≠𝕨)𝕩
 }
 
-Reverse ← {!1≤=𝕩 ⋄ (-↕⊸¬≠𝕩)⊏𝕩}
-Rotate ← {!Int𝕨 ⋄ l←≠𝕩⋄(l|𝕨+↕l)⊏𝕩} _onAxes_ 0
-
 Rep ← Indices⊸⊏
 Replicate ← {0<=𝕨}◶{𝕨⌜⊸Rep𝕩}‿{!𝕨=○≠𝕩⋄𝕨Rep𝕩} _onAxes_ (1-0=≠)
 
 ↕ ↩ Range          ⊘ Windows
-⌽ ← Reverse        ⊘ Rotate
+⌽ ← Reverse        ⊘ (Rot _onAxes_ 0)
 / ← Indices        ⊘ Replicate
 
 Join←(1≠=)◶⟨∨´1≠=⌜,1⟩◶{