more comparison tests
This commit is contained in:
parent
5a6f3fd978
commit
82bf0d301c
@ -16,6 +16,13 @@
|
|||||||
(≠⋈≢)˜{⇐} %% 0‿0
|
(≠⋈≢)˜{⇐} %% 0‿0
|
||||||
{⇐}(=⋈≡){⇐} %% 0‿0
|
{⇐}(=⋈≡){⇐} %% 0‿0
|
||||||
{⇐}(≠⋈≢){⇐} %% 1‿1
|
{⇐}(≠⋈≢){⇐} %% 1‿1
|
||||||
|
{2⊸+}=⟨2⊸+, 2⊸-, 3⊸+⟩ %% 1‿0‿0
|
||||||
|
{-+}=⟨-+, ++, --⟩ %% 1‿0‿0
|
||||||
|
{+¨}=⟨+¨, -¨, +⌜⟩ %% 1‿0‿0
|
||||||
|
{+∘-}=⟨+∘-, +∘+, -∘-, +⟜-⟩ %% 1‿0‿0‿0
|
||||||
|
{•Type}=⟨•Type,•BQN"•Type"⟩ %% 1‿1
|
||||||
|
{•FChars}=⟨•FChars,•BQN"•FChars"⟩ %% 1‿0
|
||||||
|
=⌜˜ ⟨+, ⁼, ⌾, {𝕩}, {𝔽𝕩}, {𝔽𝔾}, •internal.PureKeep, •internal.Keep, •Type, •FChars, •_timed, •_while_, 2⊸+, +-, {⇐}⟩ %% 15‿15⥊1∾15⥊0
|
||||||
|
|
||||||
# comparison
|
# comparison
|
||||||
w←1‿1⥊1 ⋄ x←1‿2⥊1 ⋄ {! (∾⟨•Repr𝕩,": Expected equal shape prefix (1‿1 ≡ ≢𝕨, 1‿2 ≡ ≢𝕩)"⟩) ≡ w 𝕏⎊(•CurrentError∘@) x}¨ =‿≠‿<‿>‿≤‿≥
|
w←1‿1⥊1 ⋄ x←1‿2⥊1 ⋄ {! (∾⟨•Repr𝕩,": Expected equal shape prefix (1‿1 ≡ ≢𝕨, 1‿2 ≡ ≢𝕩)"⟩) ≡ w 𝕏⎊(•CurrentError∘@) x}¨ =‿≠‿<‿>‿≤‿≥
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user