ghc/tests/numeric/should_run/arith007.hs

   1 --!!! test simple Integer things
   2 --
   3 main
   4   = putStr (shows integer_list "\n")
   5   where
   6     int_list :: [Int]
   7     integer_list :: [Integer]
   8
   9     int_list = (map fromInteger integer_list)
  10
  11     integer_list = (map (* 2)
  12         [1,3,5,7,9,
  13          11111111111111111111111111111,
  14          2222222222222222222222222222222222222,
  15          3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333,
  16          -11111111111111111111111111111,
  17          -2222222222222222222222222222222222222,
  18          -3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
  19         ])