fix (17⥊'⍉') ∊ 4⥊<"a"

This commit is contained in:
dzaima 2024-04-03 22:12:02 +03:00
parent 61e068086e
commit 74f3b5a012
2 changed files with 9 additions and 2 deletions

View File

@ -237,8 +237,10 @@ static NOINLINE usz indexOfOne(B l, B e) {
we = xe = el_i16; \
goto chrEls; \
} \
we-= el_c8-el_i8; \
xe-= el_c8-el_i8; goto chrEls; \
if (elChr(xe)) { \
we-= el_c8-el_i8; \
xe-= el_c8-el_i8; goto chrEls; \
} \
} \
} else if (!elNum(xe)) { \
if (elChr(xe)) goto none_found; \

View File

@ -323,6 +323,11 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
# 𝕨⊒𝕩
12233221185562531512434315234152 %% 088881837882848888588886
# 𝕨∊𝕩, 𝕨⊐𝕩, 𝕨⊒𝕩
{! ´(𝕨𝕩) = 𝕨𝕩}˜ 3100 "a⍉𝕩"1101e41e91e12"a",{}
{! ´(𝕨𝕩) = (𝕨) × 𝕨𝕩}˜ 3100 "a⍉𝕩"1101e41e91e12"a",{}
{! ´(𝕨𝕩) = (𝕨𝕩) 𝕩 𝕨}˜ 3100 "a⍉𝕩"1101e41e91e12"a",{}
# 𝕨⍋𝕩
!"⍋: 𝕨 must be sorted" % a-¨ ¨ 10 a¨10