Test integerness: Difference between revisions
→{{header|ALGOL 68}}
(added Factor) |
Catskill549 (talk | contribs) |
||
Line 149:
+4.0000000000000000000000000000000000e +0_+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>
| |||