libraries/base/tests/readDouble001.hs


1
2
3
4
5
6
7
8
9
10
11


main :: IO ()
main = do f "Infinity"
          f "-Infinity"
          f "  -  Infinity  "
          f "NaN"
          f "-NaN"
          f "  -  NaN  "

f :: String -> IO ()
f str = print (reads str :: [(Double, String)])