blob: b6136f4ea2e141f12be24b221c79787140345b86 (
plain)
1
2
3
4
5
6
7
8
9
|
import System.Environment
main = do [x] <- getArgs
print (read x < (1e400 :: Double))
print (read x < (-1e400 :: Double))
print (read x == (0/0 :: Double))
-- the last doesn't get constant-folded to NaN, so we're not really
-- testing properly here. Still, we might manage to constant fold
-- this in the future, so I'll leave it in place.
|
