aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-07-11 19:11:08 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-07-11 19:11:08 -0400
commit5138b2f0436d99b55224e2a1f8d1b38c685314af (patch)
treedc79edbb9ec414d41b84b0f998a930a5b2b43acb /src
parent2b60a7eeee22163d8d11ee2d6ac919d23f325dd5 (diff)
Test for bad results from (≠𝕩)|𝕨 in Rotate
Diffstat (limited to 'src')
-rw-r--r--src/r1.bqn4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/r1.bqn b/src/r1.bqn
index 6747f3ca..2c52bea1 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -294,7 +294,9 @@ Reverse←{
}
RotReduce ← {
"π•¨βŒ½π•©: 𝕨 must consist of integers" ! Int𝕨
- 𝕩+↩0=𝕩 β‹„ 𝕨-π•©Γ—βŒŠπ•¨Γ·π•©
+ 𝕩+↩0=𝕩 β‹„ r←𝕨-π•©Γ—βŒŠπ•¨Γ·π•©
+ "π•¨βŒ½π•©: 𝕨 too large" ! r<𝕩
+ r
}
RotL ← β†“βˆΎβ†‘
Rot ← (1==∘⊒)β—ΆβŸ¨RotL⟜(↕≠)⊏⊒,RotL⟩