aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-14 10:21:31 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-14 10:21:31 -0400
commit8e9384539dd64b1032e7304a398b27ed6e4dc0b2 (patch)
treee35fb5f7517841fbb83bb6adff25c228e34eda87
parent2ceec9693940c132c4cc8be71e8d7aed074e411e (diff)
Fix rank test for shifts
-rw-r--r--spec/reference.bqn4
1 files changed, 2 insertions, 2 deletions
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