ghc/tests/numeric/should_run/num007.hs

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