Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1 +0,0 @@
|
|||
subtype Consistent_Float is Float range Float'Range; -- No IEEE ideals
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure IEEE is -- Non portable, bad, never do this!
|
||||
Zero : Float := 0.0;
|
||||
PInf : Float := 1.0 / Zero;
|
||||
NInf : Float := -PInf;
|
||||
PZero : Float := 1.0 / PInf;
|
||||
NZero : Float := 1.0 / NInf;
|
||||
NaN : Float := 0.0 / Zero;
|
||||
begin
|
||||
Put_Line (" -oo = " & Float'Image (NInf));
|
||||
Put_Line (" +oo = " & Float'Image (PInf));
|
||||
Put_Line (" NaN = " & Float'Image (NaN));
|
||||
Put_Line (" -0 = " & Float'Image (NZero));
|
||||
|
||||
Put_Line (" -oo < first " & Boolean'Image (NInf < Float'First));
|
||||
Put_Line (" +oo > last " & Boolean'Image (PInf > Float'Last));
|
||||
Put_Line (" NaN = NaN " & Boolean'Image (NaN = NaN));
|
||||
Put_Line (" -0 = 0 " & Boolean'Image (NZero = 0.0));
|
||||
Put_Line (" +0 = 0 " & Boolean'Image (PZero = 0.0));
|
||||
Put_Line (" +0 < least positive " & Boolean'Image (PZero < Float'Succ (Zero)));
|
||||
Put_Line (" -0 > biggest negative " & Boolean'Image (NZero > Float'Pred (Zero)));
|
||||
|
||||
-- Validness checks
|
||||
Put_Line ("Valid -oo is " & Boolean'Image (NInf'Valid));
|
||||
Put_Line ("Valid +oo is " & Boolean'Image (PInf'Valid));
|
||||
Put_Line ("Valid NaN is " & Boolean'Image (NaN'Valid));
|
||||
|
||||
end IEEE;
|
||||
|
|
@ -1,25 +1,22 @@
|
|||
inf = 1 / 0
|
||||
minus_inf = -1 / 0
|
||||
minus_zero = -1 / inf
|
||||
nan = 0.0 / 0.0
|
||||
nan = 0 / 0
|
||||
#
|
||||
# in Easylang there is -0, but when
|
||||
# converting it to a string it becomes "0"
|
||||
# -0 becomes to "0" when converting it to a string
|
||||
#
|
||||
print "positive infinity: " & inf
|
||||
print "negative infinity: " & minus_inf
|
||||
print "negative zero: " & minus_zero
|
||||
print "not a number: " & nan
|
||||
#
|
||||
# some arithmetic
|
||||
print ""
|
||||
print "+inf + 2 = " & inf + 2
|
||||
print "+inf - 10.1 = " & inf - 10.1
|
||||
print "+inf + -inf = " & inf + minus_inf
|
||||
print "0 * +inf = " & 0 * inf
|
||||
print "1/-0 = " & 1 / minus_zero
|
||||
print "NaN + 1 = " & nan + 1
|
||||
print "NaN + NaN = " & nan + nan
|
||||
#
|
||||
# some comparisons
|
||||
print "NaN == NaN = " & if nan = nan
|
||||
print "nan + 1 = " & nan + 1
|
||||
print "nan + nan = " & nan + nan
|
||||
print ""
|
||||
print "nan == nan = " & if nan = nan
|
||||
print "0 = -0 = " & if 0 = minus_zero
|
||||
|
|
|
|||
|
|
@ -1,16 +0,0 @@
|
|||
constant inf = 1E400
|
||||
constant minus_inf = -inf
|
||||
constant nan = 0*inf
|
||||
|
||||
printf(1,"positive infinity: %f\n", inf)
|
||||
printf(1,"negative infinity: %f\n", minus_inf)
|
||||
printf(1,"not a number: %f\n", nan)
|
||||
|
||||
-- some arithmetic
|
||||
|
||||
printf(1,"+inf + 2.0 = %f\n", inf + 2.0)
|
||||
printf(1,"+inf - 10.1 = %f\n", inf - 10.1)
|
||||
printf(1,"+inf + -inf = %f\n", inf + minus_inf)
|
||||
printf(1,"0.0 * +inf = %f\n", 0.0 * inf)
|
||||
printf(1,"NaN + 1.0 = %f\n", nan + 1.0)
|
||||
printf(1,"NaN + NaN = %f\n", nan + nan)
|
||||
|
|
@ -1,23 +1,21 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">inf</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1e300</span><span style="color: #0000FF;">*</span><span style="color: #000000;">1e300</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">-- (works on both 32 and 64 bit)</span>
|
||||
<span style="color: #000000;">ninf</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">nan</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-(</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">/</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">),</span>
|
||||
<span style="color: #000000;">nzero</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">/</span><span style="color: #000000;">inf</span> <span style="color: #000080;font-style:italic;">-- (not supported)</span>
|
||||
with javascript_semantics
|
||||
constant inf = 1e300*1e300, -- (works on both 32 and 64 bit)
|
||||
ninf = -inf,
|
||||
nan = -(inf/inf),
|
||||
nzero = -1/inf -- (not supported)
|
||||
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" inf: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" ninf: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">ninf</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" nan: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"*nzero: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nzero</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" inf+2: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">+</span><span style="color: #000000;">2</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" inf+ninf: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">+</span><span style="color: #000000;">ninf</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" 0*inf: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">0</span><span style="color: #0000FF;">*</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" nan+1: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" nan+nan: %f\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">+</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" inf>1e300: %d\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">inf</span><span style="color: #0000FF;">></span><span style="color: #000000;">1e300</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" ninf<1e300: %d\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">ninf</span><span style="color: #0000FF;"><-</span><span style="color: #000000;">1e300</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"*nan=nan: %d\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">=</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" nan=42: %d\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">=</span><span style="color: #000000;">42</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"*nan<0: %d\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;"><</span><span style="color: #000000;">0</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" nan>0: %d\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">nan</span><span style="color: #0000FF;">></span><span style="color: #000000;">0</span><span style="color: #0000FF;">})</span>
|
||||
<!--
|
||||
printf(1," inf: %f\n",{inf})
|
||||
printf(1," ninf: %f\n",{ninf})
|
||||
printf(1," nan: %f\n",{nan})
|
||||
printf(1,"*nzero: %f\n",{nzero})
|
||||
printf(1," inf+2: %f\n",{inf+2})
|
||||
printf(1," inf+ninf: %f\n",{inf+ninf})
|
||||
printf(1," 0*inf: %f\n",{0*inf})
|
||||
printf(1," nan+1: %f\n",{nan+1})
|
||||
printf(1," nan+nan: %f\n",{nan+nan})
|
||||
printf(1," inf>1e300: %d\n",{inf>1e300})
|
||||
printf(1," ninf<1e300: %d\n",{ninf<-1e300})
|
||||
printf(1,"*nan=nan: %d\n",{nan=nan})
|
||||
printf(1," nan=42: %d\n",{nan=42})
|
||||
printf(1,"*nan<0: %d\n",{nan<0})
|
||||
printf(1," nan>0: %d\n",{nan>0})
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue