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) {
|
if (IA(x)==0) {
|
||||||
emptyres:;
|
emptyres:;
|
||||||
usz ia = 0;
|
usz ia = IA(w)==0;
|
||||||
ShArr* sh = NULL;
|
ShArr* sh = NULL;
|
||||||
if (xr > 1) {
|
if (xr > 1) {
|
||||||
sh = m_shArr(xr);
|
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 ⋄ "ab" ⍷_eqvar "" %% ⟨⟩
|
||||||
%USE eqvar ⋄ "" ⍷_eqvar "ab" %% 1‿1‿1
|
%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 ⋄ (↕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
|
||||||
(0⥊0)⍷1‿0⥊0 %% 1‿1⥊1
|
(0⥊0)⍷1‿0⥊0 %% 1‿1⥊1
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user