fix ⟨⟩⍷⟨⟩
This commit is contained in:
parent
3870189f85
commit
a6a088868c
@ -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);
|
||||
|
||||
@ -302,7 +302,10 @@ 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 ⋄ ⟨ ⟩ ⍷_eqvar ↕0 %% ⟨1⟩
|
||||
%USE eqvar ⋄ ⟨{⇐} ⟩ ⍷_eqvar ↕0 %% ⟨⟩
|
||||
%USE eqvar ⋄ ⟨0, 1 ⟩ ⍷_eqvar ↕0 %% ⟨⟩
|
||||
%USE eqvar ⋄ ⟨{⇐},{⇐}⟩ ⍷_eqvar ↕0 %% ⟨⟩
|
||||
%USE eqvar ⋄ (↕0) ⍷_eqvar 1‿0 %% 1‿1‿1
|
||||
%USE eqvar ⋄ "ab" ⍷_eqvar 0‿5⥊"ab" %% 0‿4⥊0
|
||||
(0⥊0)⍷1‿0⥊0 %% 1‿1⥊1
|
||||
|
||||
Loading…
Reference in New Issue
Block a user