RosettaCodeData/Task/Infinity/Lingo/infinity.lingo

8 lines
169 B
Plaintext

x = (1-power(2, -53)) * power(2, 1023) * 2
put ilk(x), x
-- #float 1.79769313486232e308
x = (1-power(2, -53)) * power(2, 1023) * 3
put ilk(x), x, -x
-- #float INF -INF