From 19d4e4da6a93deb398f87bb6b42b1b1ee3c4926e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 15 Feb 2021 20:52:54 -0500
Subject: =?UTF-8?q?Give=20an=20empty=20result,=20not=20an=20error,=20whene?=
 =?UTF-8?q?ver=20=F0=9D=95=A8=20is=20longer=20than=20=F0=9D=95=A9=20in=20F?=
 =?UTF-8?q?ind?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 702de192..84adec0c 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -646,8 +646,8 @@ SelfClas ← (PermInv∘⍋∘/˜⊏˜1-˜+`∘⊢) _self
 Find←{
   r←=𝕨
   "⍷𝕩: Rank of 𝕨 cannot exceed rank of 𝕩" ! r≤=𝕩
-  0 Fill 𝕨 ≡⎉r (≢𝕨) ↕⎉r 𝕩
-}
+  0 Fill 𝕨 ≡⎉r ((1+r-⊸↑≢𝕩)⌊≢𝕨)⊸↕⎉r 𝕩
+}○ToArray
 
 ≍ ← >∘Pair _fillBy_ (⊢⊘IF)
 ∾ ↩ Join           ⊘ JoinTo
-- 
cgit v1.2.3