test integer empty lists for ⍷ too
This commit is contained in:
parent
54ca333894
commit
8c04a13458
@ -276,6 +276,8 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
|
|||||||
# 𝕨⍷𝕩
|
# 𝕨⍷𝕩
|
||||||
%USE eqvar ⋄ "ab" ⍷_eqvar "" %% ⟨⟩
|
%USE eqvar ⋄ "ab" ⍷_eqvar "" %% ⟨⟩
|
||||||
%USE eqvar ⋄ "" ⍷_eqvar "ab" %% 1‿1‿1
|
%USE eqvar ⋄ "" ⍷_eqvar "ab" %% 1‿1‿1
|
||||||
|
%USE eqvar ⋄ 0‿1 ⍷_eqvar ↕0 %% ⟨⟩
|
||||||
|
%USE eqvar ⋄ (↕0) ⍷_eqvar 1‿0 %% 1‿1‿1
|
||||||
%USE eqvar ⋄ "ab" ⍷_eqvar 0‿5⥊"ab" %% 0‿4⥊0
|
%USE eqvar ⋄ "ab" ⍷_eqvar 0‿5⥊"ab" %% 0‿4⥊0
|
||||||
'a'‿1 ⍷ 0‿5⥊⟨⟩ %% 0‿4⥊0
|
'a'‿1 ⍷ 0‿5⥊⟨⟩ %% 0‿4⥊0
|
||||||
"abc" ⍷ 5‿1⥊'a' %% 5‿0⥊0
|
"abc" ⍷ 5‿1⥊'a' %% 5‿0⥊0
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user