Typo
[packages/base.git] / tests / showDouble.hs
1
2 module Main (main) where
3
4 main :: IO ()
5 main = do let xs = [p0, p01, p3, p31, n0, n01, n3, n31, pinf, ninf, nan]
6 mapM_ print xs
7 mapM_ (print . Just) xs
8
9 p0 :: Double
10 p0 = 0
11
12 p01 :: Double
13 p01 = 0.1
14
15 p3 :: Double
16 p3 = 3
17
18 p31 :: Double
19 p31 = 3.1
20
21 n0 :: Double
22 n0 = -0
23
24 n01 :: Double
25 n01 = -0.1
26
27 n3 :: Double
28 n3 = -3
29
30 n31 :: Double
31 n31 = -3.1
32
33 pinf :: Double
34 pinf = 1 / 0
35
36 ninf :: Double
37 ninf = - 1 / 0
38
39 nan :: Double
40 nan = 0 / 0
41