blob: d248d3a08c9eb47641fa41c776ac08c4e0044d15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- Exercising the reading of positive numbers at various bases.
--
module Main(main) where
import Numeric
main =
do
putStrLn (show (readBin "00000111"))
putStrLn (show (readOct "00000111"))
putStrLn (show (readDec "00000111"))
putStrLn (show (readHex "00000111"))
putStrLn (show (readBin "-24"))
putStrLn (show (readOct "-24"))
putStrLn (show (readDec "-24"))
putStrLn (show (readHex "-24"))
putStrLn (show ((readBin ::ReadS Integer) "1011784372843778438743"))
putStrLn (show ((readOct ::ReadS Integer) "3248784372843778438743"))
putStrLn (show ((readDec ::ReadS Integer) "3248784372843778438743"))
putStrLn (show ((readHex ::ReadS Integer) "3248784372843778438743"))
|
