From d6ac554a14a795321334ddcd3b2ed4eb906a6ffc Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 26 Jun 2021 14:17:07 -0400 Subject: =?UTF-8?q?=F0=9D=95=A8=E2=8D=B7=F0=9D=95=A9=20instead=20of=20?= =?UTF-8?q?=E2=8D=B7=F0=9D=95=A9=20in=20error=20message?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/r1.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3