more tests of things comparing NaNs

This commit is contained in:
dzaima 2025-05-22 04:19:28 +03:00
parent 5915841307
commit e4a8e6ed05
2 changed files with 6 additions and 0 deletions

View File

@ -14,6 +14,9 @@
%USE k n1 {𝕊: (•Repr a) ! (n _kn)´ a((322'a'+26))¨ <˘ 2222•rand.Range 3}¨ 1000
%USE k n2 {𝕊: (•Repr a) ! (n _kn)´ a((322'a'+26))¨ <˘ 2222•rand.Range 3}¨ 1000
%USE k n3 {𝕊: (•Repr a) ! (n _kn)´ a((322'a'+26))¨ <˘ 2222•rand.Range 3}¨ 1000
%USE eqvar 1, 0÷0 1 _eqvar 1021010÷0 %% 100
%USE eqvar (10210÷0) 1 _eqvar 102101¯1÷0 %% 100
(10110÷0) 1 1011100÷0 %% 101000
{𝕊k: ! (3k {3𝕩}k) 222216}¨ ¯2+10
{𝕊k: ! (1k {1𝕩}k) 333381}¨ ¯2+10

View File

@ -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 10 %% 111
%USE eqvar "ab" _eqvar 05"ab" %% 040
%USE eqvar 0÷0,1,0÷0 _eqvar 0÷0,1˜ "01010000010101010"-'0' %% 150
%USE eqvar 0÷0,1,0÷0 _eqvar 4/0÷0,1˜ "01010000010101010"-'0' %% 4150
%USE eqvar [10÷0, ˜0÷0] _eqvar 1010 1130÷0 %% 990
(00)100 %% 111
10"" %% 111
(0000000)10000000 %% 11111111