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