aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r1.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/r1.bqn b/src/r1.bqn
index f4a17a28..dbbfe8cb 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -195,7 +195,7 @@ _self←{
Find←{
r←=𝕨 β‹„ d←(=𝕩)-r
- "⍷𝕩: Rank of 𝕨 cannot exceed rank of 𝕩" ! 0≀d
+ "𝕨⍷𝕩: Rank of 𝕨 cannot exceed rank of 𝕩" ! 0≀d
i←<0 β‹„ j←β₯ŠβŸœ(↕1Γ—Β΄βŠ’)d↑s←≒𝕩
(≒𝕨) { Aβ†Γ—βŸœπ•©βŒœβŠΈ(+⌜)βŸœβ†• β‹„ i A↩𝕨 β‹„ j A↩0⌈1+𝕩-𝕨 }Β¨ d↓s
0 Fill (𝕨 Match (β₯Šπ•©)⊏˜i+⌜<)⌜ j