From cbac419b4a73e485ad3e224e5ac5d8a022c54079 Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 6 Nov 2024 22:29:32 +0200 Subject: [PATCH] =?UTF-8?q?fix=20=E2=8D=B72=E2=80=BF0=E2=A5=8Ax?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/selfsearch.c | 2 +- test/cases/prims.bqn | 8 +++++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/src/builtins/selfsearch.c b/src/builtins/selfsearch.c index 90221859..18c8e201 100644 --- a/src/builtins/selfsearch.c +++ b/src/builtins/selfsearch.c @@ -520,7 +520,7 @@ B find_c1(B t, B x) { usz n = *SH(x); if (n<=1) return x; u8 xe = TI(x,elType); - u8 sameness = fast_sameness(x, xe); + u8 sameness = IA(x)==0? 1 : fast_sameness(x, xe); if (sameness == 1) return C2(take, m_i32(1), x); if (RARE(sameness == 2)) return x; if (xe==el_bit && RNK(x)==1) { diff --git a/test/cases/prims.bqn b/test/cases/prims.bqn index 93eb2003..1f2bfd20 100644 --- a/test/cases/prims.bqn +++ b/test/cases/prims.bqn @@ -355,7 +355,7 @@ a←↕2 ⋄ ! "e" ≡ (↕10){b←a‿a‿a‿a‿a‿a‿a‿a‿a‿a ⋄ # ⊐𝕩 ⊐ (⊢∾¯1×⊢) 0‿1.5 %% 0‿1‿0‿2 -# ⍷𝕩 +# ⍷𝕩, ∊𝕩 ≠⍷ 2 ⥊ 0÷0 %% 2 ≠⍷ 200 ⥊ 0÷0 %% 200 ∊ 2 ⥊ 0÷0 %% 1‿1 @@ -365,6 +365,12 @@ a←↕2 ⋄ ! "e" ≡ (↕10){b←a‿a‿a‿a‿a‿a‿a‿a‿a‿a ⋄ ∊ 2 ⥊ π %% 1‿0 ∊ 200 ⥊ π %% 1‿199/1‿0 +⍷ 4‿0 ⥊ ⟨⟩ %% 1‿0 ⥊ ⟨⟩ +∊ 4‿0 ⥊ ⟨⟩ %% 1‿0‿0‿0 +⍷ 1000‿0 ⥊ 1 %% 1‿0 ⥊ 1 +∊ 1000‿0 ⥊ 1 %% 1 ∾ 999⥊0 +⍷ 0‿4 ⥊ 1 %% 0‿4⥊1 + # 𝕨⊒𝕩 1‿2‿2‿3‿3‿2‿2‿1⊒1‿8‿5‿5‿6‿2‿5‿3‿1‿5‿1‿2‿4‿3‿4‿3‿1‿5‿2‿3‿4‿1‿5‿2 %% 0‿8‿8‿8‿8‿1‿8‿3‿7‿8‿8‿2‿8‿4‿8‿8‿8‿8‿5‿8‿8‿8‿8‿6