fix ⍷2‿0⥊x
This commit is contained in:
parent
d47cedb165
commit
cbac419b4a
@ -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) {
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user