use exact desired bit pattern for NaN in test
This commit is contained in:
parent
b237f170fb
commit
ee1b487624
@ -170,7 +170,9 @@ t0←•MonoTime@ ⋄ ! 0.1≤•Delay 0.1 ⋄ ! 0.1≤(•MonoTime@)-t0
|
|||||||
|
|
||||||
|
|
||||||
# two assumptions made by the following tests
|
# two assumptions made by the following tests
|
||||||
64‿32•bit._cast (¯1⊸×≍⊢) (↕3)∾∞∾0÷0 %% 2‿10⥊0‿¯2147483648‿0‿¯1074790400‿0‿¯1073741824‿0‿¯1048576‿0‿¯524288‿0‿0‿0‿1072693248‿0‿1073741824‿0‿2146435072‿0‿¯524288
|
%DEF nan nan←1‿64•bit._cast/51‿13 ⋄ nans ← nan∾-nan
|
||||||
|
%USE nan ⋄ 64‿32•bit._cast nans %% 0‿¯524288‿0‿¯524288
|
||||||
|
%USE nan ⋄ 64‿32•bit._cast (¯1⊸×≍⊢) (↕3)∾∞∾nan %% 2‿10⥊0‿¯2147483648‿0‿¯1074790400‿0‿¯1073741824‿0‿¯1048576‿0‿¯524288‿0‿0‿0‿1072693248‿0‿1073741824‿0‿2146435072‿0‿¯524288
|
||||||
64‿32•bit._cast ⟨π, 0, •ParseFloat"-0"⟩ %% 1413754136‿1074340347‿0‿0‿0‿¯2147483648
|
64‿32•bit._cast ⟨π, 0, •ParseFloat"-0"⟩ %% 1413754136‿1074340347‿0‿0‿0‿¯2147483648
|
||||||
|
|
||||||
! {(𝕩 •math.Atan2 0) ≡ 𝕩 •math.Atan2 •ParseFloat"-0"} (-≍⊢) ∞∾˜↕3
|
! {(𝕩 •math.Atan2 0) ≡ 𝕩 •math.Atan2 •ParseFloat"-0"} (-≍⊢) ∞∾˜↕3
|
||||||
@ -267,4 +269,4 @@ a←⋈"Ai32"•internal.Variation ↕10 ⋄ •internal.Type ⊑•internal.Dee
|
|||||||
# •internal.Unshare
|
# •internal.Unshare
|
||||||
•internal.Refc∘•internal.Unshare¨ ⟨↕0, "", ⟨⟩, ↕10⟩ %% 1‿1‿1‿1
|
•internal.Refc∘•internal.Unshare¨ ⟨↕0, "", ⟨⟩, ↕10⟩ %% 1‿1‿1‿1
|
||||||
# •internal.EEqual
|
# •internal.EEqual
|
||||||
a←1⌽⟨0÷0,-0÷0⟩∾•ParseFloat¨"0"‿"1.2"‿"-0" ⋄ a •internal.EEqual ⌽a %% 1
|
%USE nan ⋄ a←1⌽nans∾•ParseFloat¨"0"‿"1.2"‿"-0" ⋄ a •internal.EEqual ⌽a %% 1
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user