blob: 085ea3ced9898e8f99914f804ea8fa1bfadf9441 (
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
|
main :: IO ()
main = do
case 0::Int of
0 -> putStrLn "A"
1 -> putStrLn "B"
_ -> putStrLn "C"
case 0::Int of
0 -> putStrLn "A"
1 -> putStrLn "B"
2 -> putStrLn "C"
case 0::Integer of
0 -> putStrLn "A"
1 -> putStrLn "B"
_ -> putStrLn "C"
case 0::Integer of
0 -> putStrLn "A"
1 -> putStrLn "B"
2 -> putStrLn "C"
case 0::Integer of
1 -> putStrLn "B"
2 -> putStrLn "C"
case 3::Integer of
1 -> putStrLn "B"
2 -> putStrLn "C"
|