RosettaCodeData/Task/Infinity/OxygenBasic/infinity.basic
2023-07-01 13:44:08 -04:00

20 lines
219 B
Text

print 1.5e-400 '0
print 1.5e400 '#INF
print -1.5e400 '#-INF
print 0/-1.5 '-0
print 1.5/0 '#INF
print -1.5/0 '#-INF
print 0/0 '#qNAN
function f() as double
return -1.5/0
end function
print f '#-INF