3 module Main(main) where
9 putStrLn (showEFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Double) [])
10 putStrLn (showFFloat (Just 7) (1.82173691287639817263897126389712638972163::Double) [])
11 putStrLn (showGFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Double) [])
12 putStrLn (showEFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Float) [])
13 putStrLn (showEFloat (Just 10) (0.0::Double) [])
14 putStrLn (showEFloat (Just 0) (2.3::Double) [])
15 putStrLn (showEFloat Nothing (0.0::Double) [])
16 putStrLn (showEFloat Nothing (3::Float) [])
17 putStrLn (showEFloat Nothing (0.5::Float) [])
18 putStrLn (show (floatToDigits 10 (0.0::Double)))
19 putStrLn (showFFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Float) [])
20 putStrLn (showGFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Float) [])