1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- Testing showInt, lightly.
module Main(main) where
import Numeric
showSignedInt :: Integral a => a -> String
showSignedInt x = showSigned (showInt) 0 x ""
main =
do
putStrLn (showInt (343023920121::Integer) [])
putStrLn (showInt (3430239::Int) [])
putStrLn (showInt (1212 :: Int) [])
putStrLn (showSignedInt (591125662431 `div` (517::Int)))
-- showInt just works over naturals, wrap it up inside
-- a use of Numeric.showSigned to show negative nums.
putStrLn (showSignedInt (-111::Int))
putStrLn (showInt (232189458241::Integer) [])
|
