Test integerness: Difference between revisions
Content added Content deleted
(added Factor) |
Catskill549 (talk | contribs) |
||
Line 149: | Line 149: | ||
+4.0000000000000000000000000000000000e +0_+0.0000000000000000000000000000000000e +0 is integral |
+4.0000000000000000000000000000000000e +0_+0.0000000000000000000000000000000000e +0 is integral |
||
+1.2345678901234567890123400000000000e +23_+0.0000000000000000000000000000000000e +0 is integral |
+1.2345678901234567890123400000000000e +23_+0.0000000000000000000000000000000000e +0 is integral |
||
</pre> |
|||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f TEST_INTEGERNESS.AWK |
|||
BEGIN { |
|||
n = split("25.000000,24.999999,25.000100,-2.1e120,-5e-2,NaN,Inf,-0.05",arr,",") |
|||
for (i=1; i<=n; i++) { |
|||
s = arr[i] |
|||
x = (s == int(s)) ? 1 : 0 |
|||
printf("%d %s\n",x,s) |
|||
} |
|||
exit(0) |
|||
} |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 25.000000 |
|||
0 24.999999 |
|||
0 25.000100 |
|||
1 -2.1e120 |
|||
0 -5e-2 |
|||
0 NaN |
|||
0 Inf |
|||
0 -0.05 |
|||
</pre> |
</pre> |
||