make ⟨⟩≡∾⟨⟩ under PROPER_FILLS
This commit is contained in:
parent
03f2f29f3b
commit
183f64c1f9
@ -718,7 +718,8 @@ B join_c1(B t, B x) {
|
|||||||
ur xr = RNK(x);
|
ur xr = RNK(x);
|
||||||
usz xia = IA(x);
|
usz xia = IA(x);
|
||||||
if (xia==0) {
|
if (xia==0) {
|
||||||
B xf = getFillE(x);
|
B xf = getFillR(x);
|
||||||
|
if (noFill(xf)) return x;
|
||||||
if (isAtm(xf)) {
|
if (isAtm(xf)) {
|
||||||
decA(xf); decG(x);
|
decA(xf); decG(x);
|
||||||
if (!PROPER_FILLS && xr==1) return emptyHVec();
|
if (!PROPER_FILLS && xr==1) return emptyHVec();
|
||||||
|
|||||||
@ -199,6 +199,7 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
|
|||||||
∾3‿3⥊<1‿0‿3⥊0 %% 3‿0‿3⥊0
|
∾3‿3⥊<1‿0‿3⥊0 %% 3‿0‿3⥊0
|
||||||
∾3‿3⥊<0‿0⥊⟨⟩ %% 0‿0⥊⟨⟩
|
∾3‿3⥊<0‿0⥊⟨⟩ %% 0‿0⥊⟨⟩
|
||||||
⊑1↑⥊∾3‿3⥊<1‿0‿3⥊<"hi" %% " "
|
⊑1↑⥊∾3‿3⥊<1‿0‿3⥊<"hi" %% " "
|
||||||
|
∾⟨⟩ %% ⟨⟩
|
||||||
|
|
||||||
# 𝕨∾𝕩
|
# 𝕨∾𝕩
|
||||||
!"∾: Lengths not matchable (⟨6⟩ ≡ ≢𝕨, 1‿1 ≡ ≢𝕩)" % ("abc"∾"def")∾≍"a"
|
!"∾: Lengths not matchable (⟨6⟩ ≡ ≢𝕨, 1‿1 ≡ ≢𝕩)" % ("abc"∾"def")∾≍"a"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user