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 ⋄ "" ⍷_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
|
||||
'a'‿1 ⍷ 0‿5⥊⟨⟩ %% 0‿4⥊0
|
||||
"abc" ⍷ 5‿1⥊'a' %% 5‿0⥊0
|
||||
|
||||
Loading…
Reference in New Issue
Block a user