add 𝕩 to error messages of <⁼𝕩, ⋈⁼𝕩, ≍⁼𝕩
This commit is contained in:
parent
445007b38c
commit
17ec5f0a8a
@ -1512,18 +1512,18 @@ B reverse_ix(B t, B w, B x) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
NOINLINE B enclose_im(B t, B x) {
|
NOINLINE B enclose_im(B t, B x) {
|
||||||
if (isAtm(x) || RNK(x)!=0) thrM("<⁼: Argument wasn't a rank 0 array");
|
if (isAtm(x) || RNK(x)!=0) thrM("<⁼𝕩: Argument wasn't a rank 0 array");
|
||||||
return TO_GET(x, 0);
|
return TO_GET(x, 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
NOINLINE B pair_im(B t, B x) {
|
NOINLINE B pair_im(B t, B x) {
|
||||||
if (isAtm(x) || RNK(x)!=1 || IA(x)!=1) thrM("⋈⁼: Argument wasn't a length-1 list");
|
if (isAtm(x) || RNK(x)!=1 || IA(x)!=1) thrM("⋈⁼𝕩: Argument wasn't a length-1 list");
|
||||||
return TO_GET(x, 0);
|
return TO_GET(x, 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
B select_c1(B,B);
|
B select_c1(B,B);
|
||||||
NOINLINE B couple_im(B t, B x) {
|
NOINLINE B couple_im(B t, B x) {
|
||||||
if (isAtm(x) || RNK(x)==0 || *SH(x)!=1) thrM("≍⁼: Argument must have a leading axis of 1");
|
if (isAtm(x) || RNK(x)==0 || *SH(x)!=1) thrM("≍⁼𝕩: Argument must have a leading axis of 1");
|
||||||
return C1(select,x);
|
return C1(select,x);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@ -117,10 +117,10 @@
|
|||||||
≍⁼⎉¯2 4‿2‿1‿3‿2⥊↕48 %% 4‿2‿3‿2⥊↕48
|
≍⁼⎉¯2 4‿2‿1‿3‿2⥊↕48 %% 4‿2‿3‿2⥊↕48
|
||||||
≍⁼⎉1 ⋈"foo" %% <"foo"
|
≍⁼⎉1 ⋈"foo" %% <"foo"
|
||||||
≍⁼⎉1 ⋈10 %% <10
|
≍⁼⎉1 ⋈10 %% <10
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼˘ 1‿10⥊2
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼˘ 1‿10⥊2
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼⎉¯2 1‿1‿2‿1‿1⥊1
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼⎉¯2 1‿1‿2‿1‿1⥊1
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼⎉¯2 1‿1⥊10
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼⎉¯2 1‿1⥊10
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼⎉0 ⋈10
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼⎉0 ⋈10
|
||||||
|
|
||||||
%USE eqvar ⋄ (100⥊5↑1) ≍˘_eqvar 100⥊7↑1 %% 0=(↕100) |˜⌜ 5‿7
|
%USE eqvar ⋄ (100⥊5↑1) ≍˘_eqvar 100⥊7↑1 %% 0=(↕100) |˜⌜ 5‿7
|
||||||
%USE eqvar ⋄ ('a'+100⥊↕5) ≍˘_eqvar 100⥊↕7 %% 'a'‿0 +⎉1 (↕100) |˜⌜ 5‿7
|
%USE eqvar ⋄ ('a'+100⥊↕5) ≍˘_eqvar 100⥊↕7 %% 'a'‿0 +⎉1 (↕100) |˜⌜ 5‿7
|
||||||
|
|||||||
@ -158,18 +158,18 @@ n←500 ⋄ a←↕n ⋄ i←(-n)+↕2×n ⋄ r←⌽(2×n)⥊a ⋄ ! (⌽a) ≡
|
|||||||
⊢⌾< 4 %% 4
|
⊢⌾< 4 %% 4
|
||||||
(<5)⌾< 4 %% 5
|
(<5)⌾< 4 %% 5
|
||||||
{<"cd"}⌾< "ab" %% "cd"
|
{<"cd"}⌾< "ab" %% "cd"
|
||||||
!"<⁼: Argument wasn't a rank 0 array" % 4⌾< "ab"
|
!"<⁼𝕩: Argument wasn't a rank 0 array" % 4⌾< "ab"
|
||||||
!"<⁼: Argument wasn't a rank 0 array" % {⇐}⌾< "ab"
|
!"<⁼𝕩: Argument wasn't a rank 0 array" % {⇐}⌾< "ab"
|
||||||
!"<⁼: Argument wasn't a rank 0 array" % ≍⌾< 2
|
!"<⁼𝕩: Argument wasn't a rank 0 array" % ≍⌾< 2
|
||||||
|
|
||||||
# ⋈
|
# ⋈
|
||||||
⊢⌾⋈ 4 %% 4
|
⊢⌾⋈ 4 %% 4
|
||||||
(⋈5)⌾⋈ 4 %% 5
|
(⋈5)⌾⋈ 4 %% 5
|
||||||
{⋈"cd"}⌾⋈ "ab" %% "cd"
|
{⋈"cd"}⌾⋈ "ab" %% "cd"
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % 4⌾⋈ "ab"
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % 4⌾⋈ "ab"
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % {⇐}⌾⋈ "ab"
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % {⇐}⌾⋈ "ab"
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % ≍⌾⋈ 2
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % ≍⌾⋈ 2
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % (<4)⌾⋈ 2
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % (<4)⌾⋈ 2
|
||||||
|
|
||||||
# k⊸⌽
|
# k⊸⌽
|
||||||
!"𝕨⌽⁼𝕩: 𝕩 must have rank at least 1" % 1⌾(2⊸⌽) ↕10
|
!"𝕨⌽⁼𝕩: 𝕩 must have rank at least 1" % 1⌾(2⊸⌽) ↕10
|
||||||
|
|||||||
@ -1,22 +1,22 @@
|
|||||||
<⁼ <"foo" %% "foo"
|
<⁼ <"foo" %% "foo"
|
||||||
!"<⁼: Argument wasn't a rank 0 array" % <⁼ 4
|
!"<⁼𝕩: Argument wasn't a rank 0 array" % <⁼ 4
|
||||||
!"<⁼: Argument wasn't a rank 0 array" % <⁼ ↕0
|
!"<⁼𝕩: Argument wasn't a rank 0 array" % <⁼ ↕0
|
||||||
!"<⁼: Argument wasn't a rank 0 array" % <⁼ "f"
|
!"<⁼𝕩: Argument wasn't a rank 0 array" % <⁼ "f"
|
||||||
|
|
||||||
⋈⁼ ⋈"foo" %% "foo"
|
⋈⁼ ⋈"foo" %% "foo"
|
||||||
⋈⁼ "f" %% 'f'
|
⋈⁼ "f" %% 'f'
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % ⋈⁼ 4
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % ⋈⁼ 4
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % ⋈⁼ ↕0
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % ⋈⁼ ↕0
|
||||||
!"⋈⁼: Argument wasn't a length-1 list" % ⋈⁼ ≍"f"
|
!"⋈⁼𝕩: Argument wasn't a length-1 list" % ⋈⁼ ≍"f"
|
||||||
|
|
||||||
≍⁼ ⋈"foo" %% <"foo"
|
≍⁼ ⋈"foo" %% <"foo"
|
||||||
≍⁼ ⋈5 %% <5
|
≍⁼ ⋈5 %% <5
|
||||||
≍⁼ 1‿2‿3⥊↕6 %% 2‿3⥊↕6
|
≍⁼ 1‿2‿3⥊↕6 %% 2‿3⥊↕6
|
||||||
≍⁼ 1‿2⥊↕2 %% ↕2
|
≍⁼ 1‿2⥊↕2 %% ↕2
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ 5
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ 5
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ <"foo"
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ <"foo"
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ "foo"
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ "foo"
|
||||||
!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ 3‿1‿1⥊<"foo"
|
!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ 3‿1‿1⥊<"foo"
|
||||||
|
|
||||||
!"⌽𝕩: 𝕩 cannot be a unit" % ⌽⁼ 0
|
!"⌽𝕩: 𝕩 cannot be a unit" % ⌽⁼ 0
|
||||||
⌽⁼ ↕10 %% 9-↕10
|
⌽⁼ ↕10 %% 9-↕10
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user