Anonymous user
Extreme floating point values: Difference between revisions
m
→{{header|S-lang}}
Line 1,812:
=={{header|S-lang}}==
Each of these can be directly input; I'll calc the Infs for good measure:
<lang S-lang>foreach $1 ([{-0.0}, {_Inf, "1.0/0"}, {-_Inf, "-1.0/0"}, {_NaN}]) {▼
▲foreach $1 ([{-0.0}, {_Inf, "1.0/0"}, {-_Inf, "-1.0/0"}, {_NaN}]) {
() = printf("%S", $1[0]);
if (length($1) > 1) () = printf("\t%S\n", eval($1[1]));
else () = printf("\n");
}</lang>{{out}}▼
▲</lang>{{out}}
<pre>-0.0
inf inf
Line 1,824 ⟶ 1,822:
nan
</pre>
<lang S-lang>% And make some comparisons:
() = printf("-0.0 and 0.0 are %sequal\n", -0.0 == 0.0 ? "" : "not ");
() = printf("-_Inf == _Inf are %sequal\n", -_Inf == _Inf ? "" : "not ");
| |||