blob: e3d36a86519591cea22412cc1695bfe3882df548 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- !!! test simple Integer things
--
f x y z = x y z
main = do
putStr (shows integer_list "\n")
where
int_list :: [Int]
integer_list :: [Integer]
int_list = (map fromInteger integer_list)
integer_list = (map (* 2)
[1,3,5,7,9,
11111111111111111111111111111,
2222222222222222222222222222222222222,
3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333,
-11111111111111111111111111111,
-2222222222222222222222222222222222222,
-3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
])
|