more tests of things comparing NaNs
This commit is contained in:
parent
5915841307
commit
e4a8e6ed05
@ -14,6 +14,9 @@
|
||||
%USE k ⋄ n←1 ⋄ ≠{𝕊: (•Repr a) ! (≡⎉n ≡ ≡_k⎉n)´ a←(⊏⟜(3‿2‿2⥊'a'+↕26))¨ <˘ 2‿2‿2‿2•rand.Range 3}¨ ↕1000
|
||||
%USE k ⋄ n←2 ⋄ ≠{𝕊: (•Repr a) ! (≡⎉n ≡ ≡_k⎉n)´ a←(⊏⟜(3‿2‿2⥊'a'+↕26))¨ <˘ 2‿2‿2‿2•rand.Range 3}¨ ↕1000
|
||||
%USE k ⋄ n←3 ⋄ ≠{𝕊: (•Repr a) ! (≡⎉n ≡ ≡_k⎉n)´ a←(⊏⟜(3‿2‿2⥊'a'+↕26))¨ <˘ 2‿2‿2‿2•rand.Range 3}¨ ↕1000
|
||||
%USE eqvar ⋄ ⟨1, 0÷0⟩ ≡⎉1 _eqvar 10‿2⥊1‿0‿1∾0÷0 %% 10⥊0
|
||||
%USE eqvar ⋄ (10‿2⥊1‿0÷0) ≡⎉1 _eqvar 10‿2⥊1‿0‿1‿¯1÷0 %% 10⥊0
|
||||
(10‿1⥊1‿0÷0) ≡⎉1 10‿1⥊1‿1‿0‿0÷0 %% 10⥊1‿0‿0‿0
|
||||
≠{𝕊k: ! (3⊸↑⎉k ≡ {3↑𝕩}⎉k) 2‿2‿2‿2⥊↕16}¨ ¯2+↕10
|
||||
≠{𝕊k: ! (1⊸↓⎉k ≡ {1↓𝕩}⎉k) 3‿3‿3‿3⥊↕81}¨ ¯2+↕10
|
||||
|
||||
|
||||
@ -376,6 +376,9 @@ b←1↓1∾a←"hello" ⋄ b ⌽⎊'e' ⥊⟜1⍟2 5 ⋄ a ≡○•Hash b %% 1
|
||||
%USE eqvar ⋄ ⟨{⇐},{⇐}⟩ ⍷_eqvar ↕0 %% ⟨⟩
|
||||
%USE eqvar ⋄ (↕0) ⍷_eqvar 1‿0 %% 1‿1‿1
|
||||
%USE eqvar ⋄ "ab" ⍷_eqvar 0‿5⥊"ab" %% 0‿4⥊0
|
||||
%USE eqvar ⋄ ⟨0÷0,1,0÷0⟩ ⍷_eqvar ⟨0÷0,1⟩⊏˜ "01010000010101010"-'0' %% 15⥊0
|
||||
%USE eqvar ⋄ ⟨0÷0,1,0÷0⟩ ⍷_eqvar 4/≍⟨0÷0,1⟩⊏˜ "01010000010101010"-'0' %% 4‿15⥊0
|
||||
%USE eqvar ⋄ [1⋈0÷0, ⋈˜0÷0] ⍷_eqvar 10‿10 ⥊ 1∾13⥊0÷0 %% 9‿9⥊0
|
||||
(0⥊0)⍷1‿0⥊0 %% 1‿1⥊1
|
||||
⟨⟩⍷1‿0⥊"" %% 1‿1⥊1
|
||||
(0‿0‿0‿0‿0‿0⥊0)⍷1‿0‿0‿0‿0‿0‿0⥊0 %% 1‿1‿1‿1‿1‿1‿1⥊1
|
||||
|
||||
Loading…
Reference in New Issue
Block a user