Test integerness: Difference between revisions
Added 11l
m (→{{header|Phix}}: added syntax colouring the hard way, phix/basics) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 112:
<hr>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F isint(f)
R Complex(f).imag == 0 & fract(Complex(f).real) == 0
print([Complex(1.0), 2, (3.0 + 0.0i), 4.1, (3 + 4i), (5.6 + 0i)].map(f -> isint(f)))
print(isint(25.000000))
print(isint(24.999999))
print(isint(25.000100))
print(isint(-5e-2))
print(isint(5.0 + 0.0i))
print(isint(5 - 5i))</lang>
{{out}}
<pre>
[1B, 1B, 1B, 0B, 0B, 0B]
1B
0B
0B
0B
1B
0B
</pre>
=={{header|ALGOL 68}}==
| |||