fix ⍷2‿0⥊x

This commit is contained in:
dzaima 2024-11-06 22:29:32 +02:00
parent d47cedb165
commit cbac419b4a
2 changed files with 8 additions and 2 deletions

View File

@ -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) {

View File

@ -355,7 +355,7 @@ a←↕2 ⋄ ! "e" ≡ (↕10){b←a‿a‿a‿a‿a‿a‿a‿a‿a‿a ⋄
# ⊐𝕩
(¯1×) 01.5 %% 0102
# ⍷𝕩
# ⍷𝕩, ∊𝕩
2 0÷0 %% 2
200 0÷0 %% 200
2 0÷0 %% 11
@ -365,6 +365,12 @@ a←↕2 ⋄ ! "e" ≡ (↕10){b←a‿a‿a‿a‿a‿a‿a‿a‿a‿a ⋄
2 π %% 10
200 π %% 1199/10
40 %% 10
40 %% 1000
10000 1 %% 10 1
10000 1 %% 1 9990
04 1 %% 041
# 𝕨⊒𝕩
12233221185562531512434315234152 %% 088881837882848888588886