From 77b40d3ec3904846d9167d49b19bc7790b4fc84a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 12 Aug 2020 21:20:16 -0400
Subject: Non-pervasive Reverse and Rotate definitions

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

(limited to 'src')

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⟩◶{
-- 
cgit v1.2.3