repeated sort tests
This commit is contained in:
parent
d5d495ecd2
commit
36e8ad59f7
@ -365,6 +365,14 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
|
|||||||
⍷∘(⥊¨)⊸({! (𝕨⍋𝕩) ≡ (≢𝕩)⥊ (≠𝕨)×0≥𝕨 •Cmp○⊑ 𝕩}⌜) ⟨3, <3, 10⥊3, 'a', <'a', 10⥊'a'⟩
|
⍷∘(⥊¨)⊸({! (𝕨⍋𝕩) ≡ (≢𝕩)⥊ (≠𝕨)×0≥𝕨 •Cmp○⊑ 𝕩}⌜) ⟨3, <3, 10⥊3, 'a', <'a', 10⥊'a'⟩
|
||||||
⍷∘(⥊¨)⊸({! (𝕨⍒𝕩) ≡ (≢𝕩)⥊ (≠𝕨)×0≤𝕨 •Cmp○⊑ 𝕩}⌜) ⟨3, <3, 10⥊3, 'a', <'a', 10⥊'a'⟩
|
⍷∘(⥊¨)⊸({! (𝕨⍒𝕩) ≡ (≢𝕩)⥊ (≠𝕨)×0≤𝕨 •Cmp○⊑ 𝕩}⌜) ⟨3, <3, 10⥊3, 'a', <'a', 10⥊'a'⟩
|
||||||
|
|
||||||
|
# ∧𝕩, ∨𝕩
|
||||||
|
∧ "abc"∾↕3 %% (↕3)∾"abc"
|
||||||
|
∧∨"abc"∾↕3 %% (↕3)∾"abc"
|
||||||
|
∧∧"abc"∾↕3 %% (↕3)∾"abc"
|
||||||
|
∨ "abc"∾↕3 %% "cba"∾2‿1‿0
|
||||||
|
∨∨"abc"∾↕3 %% "cba"∾2‿1‿0
|
||||||
|
∨∧"abc"∾↕3 %% "cba"∾2‿1‿0
|
||||||
|
|
||||||
# 𝕨|𝕩
|
# 𝕨|𝕩
|
||||||
{x←2⥊𝕨|𝕩 ⋄ ! x •internal.EEqual 𝕨‿𝕨|𝕩‿𝕩 ⋄ ! x •internal.EEqual 𝕨|𝕩‿𝕩}⌜˜ ⍷∧∾⟜- ⟨π, ∞, 0÷0, 0.5, 0.1⟩∾(↕10)∾⥊(¯4+↕9)+⌜2⋆7‿8‿15‿31‿32
|
{x←2⥊𝕨|𝕩 ⋄ ! x •internal.EEqual 𝕨‿𝕨|𝕩‿𝕩 ⋄ ! x •internal.EEqual 𝕨|𝕩‿𝕩}⌜˜ ⍷∧∾⟜- ⟨π, ∞, 0÷0, 0.5, 0.1⟩∾(↕10)∾⥊(¯4+↕9)+⌜2⋆7‿8‿15‿31‿32
|
||||||
(
|
(
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user