fix ⟨⟩⍷⟨⟩

This commit is contained in:
dzaima 2024-04-04 03:52:16 +03:00
parent 3870189f85
commit a6a088868c
2 changed files with 5 additions and 2 deletions

View File

@ -281,7 +281,7 @@ B find_c2(B t, B w, B x) {
if (IA(x)==0) {
emptyres:;
usz ia = 0;
usz ia = IA(w)==0;
ShArr* sh = NULL;
if (xr > 1) {
sh = m_shArr(xr);

View File

@ -302,7 +302,10 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
# 𝕨⍷𝕩
%USE eqvar "ab" _eqvar "" %%
%USE eqvar "" _eqvar "ab" %% 111
%USE eqvar 01 _eqvar 0 %%
%USE eqvar _eqvar 0 %% 1
%USE eqvar {} _eqvar 0 %%
%USE eqvar 0, 1 _eqvar 0 %%
%USE eqvar {},{} _eqvar 0 %%
%USE eqvar (0) _eqvar 10 %% 111
%USE eqvar "ab" _eqvar 05"ab" %% 040
(00)100 %% 111