From 8e9384539dd64b1032e7304a398b27ed6e4dc0b2 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 14 Sep 2020 10:21:31 -0400
Subject: Fix rank test for shifts

---
 spec/reference.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'spec/reference.bqn')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index f12bbc60..6be56fdd 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -309,8 +309,8 @@ Drop←{
 Prefixes ← {!1≤=𝕩 ⋄ (↕1+≠𝕩)Take¨<𝕩}
 Suffixes ← {!1≤=𝕩 ⋄ (↕1+≠𝕩)Drop¨<𝕩}
 
-ShiftBefore ← {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ ( ≠𝕩)↑𝕨∾𝕩}
-ShiftAfter  ← {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ (-≠𝕩)↑𝕩∾𝕨}
+ShiftBefore ← {!𝕨1⊸⌈⊸≤○=𝕩 ⋄ ( ≠𝕩)↑𝕨∾𝕩}
+ShiftAfter  ← {!𝕨1⊸⌈⊸≤○=𝕩 ⋄ (-≠𝕩)↑𝕩∾𝕨}
 Nudge     ← (1↑0↑⊢)⊸ShiftBefore
 NudgeBack ← (1↑0↑⊢)⊸ShiftAfter
 
-- 
cgit v1.2.3