author Ian Lynagh Sat, 19 Nov 2011 22:42:42 +0000 (22:42 +0000) committer Ian Lynagh Sat, 19 Nov 2011 22:42:42 +0000 (22:42 +0000)
 tests/CPUTime001.hs patch | blob | history tests/Numeric/num002.hs patch | blob | history tests/Numeric/num003.hs patch | blob | history tests/Numeric/num004.hs patch | blob | history tests/Numeric/num005.hs patch | blob | history tests/Numeric/num006.hs patch | blob | history tests/Numeric/num007.hs patch | blob | history tests/Numeric/num008.hs patch | blob | history tests/unicode001.hs patch | blob | history tests/unicode002.hs patch | blob | history

index 6c43c57..122e9ca 100644 (file)
@@ -18,9 +18,9 @@ timeFib n = do
return (end - start)

nfib :: Integer -> Integer
-nfib n
+nfib n
| n <= 1 = 1
| otherwise = (n1 + n2 + 1)
-  where
-    n1 = nfib (n-1)
+  where
+    n1 = nfib (n-1)
n2 = nfib (n-2)
index 31ea76c..8879607 100644 (file)
@@ -7,7 +7,7 @@ import Numeric
showSignedInt :: Integral a => a -> String
showSignedInt x = showSigned (showInt) 0 x ""

-main =
+main =
do
putStrLn (showInt (343023920121::Integer) [])
putStrLn (showInt (3430239::Int) [])
index 368be25..01ca492 100644 (file)
@@ -5,9 +5,9 @@ module Main(main) where
import Numeric
import Data.Char

-main =
-  let
+main =
+  let
in
do
index 0eb2bee..8159988 100644 (file)
@@ -5,9 +5,9 @@ module Main(main) where
import Numeric
import Data.Char

-main =
-  let
+main =
+  let
in
do
index ef647a6..49ed092 100644 (file)
@@ -4,14 +4,14 @@ module Main(main) where

import Numeric

-main =
-  let
+main =
+  let
ls = ["3489348394032498320438240938403","0","-1","1","34323","2L","012","0x23","3243ab"]
present str f ls =
-    sequence (map (\ v -> putStr ('\n':str ++
-                                  ' ': v   ++
-                                 " = "    ++
-                                 (show (f v)))) ls)
+    sequence (map (\ v -> putStr ('\n':str ++
+                                  ' ': v   ++
+                                  " = "    ++
+                                  (show (f v)))) ls)
in
do
index f421ed7..65347dd 100644 (file)
@@ -10,13 +10,13 @@ showDec = showInt

{-
--showBinary :: Integral a => a -> ShowS
-showBinary n r =
+showBinary n r =
showString "0b" \$
showIntAtBase 2 (toChr) n r
where toChr d = chr (ord '0' + fromIntegral d)
-}

-main =
+main =
do
print (map (\ x -> showOct x []) [1..32])
print (map (\ x -> showDec x []) [1..32])
index 1c40ecf..e02bd41 100644 (file)
@@ -4,7 +4,7 @@ module Main(main) where

import Numeric

-main =
+main =
do
index 3615824..fa08132 100644 (file)
@@ -6,24 +6,24 @@ import Numeric

main = do
let dbls   =  map (shEFloat (Just 7)) doubles
-            ++ map (shEFloat (Just 0)) doubles
-            ++ map (shEFloat Nothing)  doubles
-            ++ map (shFFloat (Just 7)) doubles
-            ++ map (shFFloat (Just 0)) doubles
-            ++ map (shFFloat Nothing)  doubles
-            ++ map (shGFloat (Just 7)) doubles
-            ++ map (shGFloat (Just 0)) doubles
-            ++ map (shGFloat Nothing)  doubles
+             ++ map (shEFloat (Just 0)) doubles
+             ++ map (shEFloat Nothing)  doubles
+             ++ map (shFFloat (Just 7)) doubles
+             ++ map (shFFloat (Just 0)) doubles
+             ++ map (shFFloat Nothing)  doubles
+             ++ map (shGFloat (Just 7)) doubles
+             ++ map (shGFloat (Just 0)) doubles
+             ++ map (shGFloat Nothing)  doubles

flts   =  map (shEFloat (Just 7)) floats
-            ++ map (shEFloat (Just 0)) floats
-            ++ map (shEFloat Nothing)  floats
-            ++ map (shFFloat (Just 7)) floats
-            ++ map (shFFloat (Just 0)) floats
-            ++ map (shFFloat Nothing)  floats
-            ++ map (shGFloat (Just 7)) floats
-            ++ map (shGFloat (Just 0)) floats
-            ++ map (shGFloat Nothing)  floats
+             ++ map (shEFloat (Just 0)) floats
+             ++ map (shEFloat Nothing)  floats
+             ++ map (shFFloat (Just 7)) floats
+             ++ map (shFFloat (Just 0)) floats
+             ++ map (shFFloat Nothing)  floats
+             ++ map (shGFloat (Just 7)) floats
+             ++ map (shGFloat (Just 0)) floats
+             ++ map (shGFloat Nothing)  floats

putStrLn (unlines dbls)
putStrLn (unlines flts)
@@ -36,22 +36,22 @@ shGFloat p f = showGFloat p f ""

doubles :: [ Double ]
doubles = [ 0.0
-         , 420
-         ,  42
-         ,   4.2
-         ,   0.42
-         ,   0.042
-         , 1.82173691287639817263897126389712638972163
-         , 1.82173691287639817263897126389712638972163e-300
-         ]
+          , 420
+          ,  42
+          ,   4.2
+          ,   0.42
+          ,   0.042
+          , 1.82173691287639817263897126389712638972163
+          , 1.82173691287639817263897126389712638972163e-300
+          ]

floats :: [ Float ]
floats = [ 0.0
-         , 420
-         ,  42
-         ,   4.2
-         ,   0.42
-         ,   0.042
-         , 1.82173691287639817263897126389712638972163
-         , 1.82173691287639817263897126389712638972163e-300
-         ]
+          , 420
+          ,  42
+          ,   4.2
+          ,   0.42
+          ,   0.042
+          , 1.82173691287639817263897126389712638972163
+          , 1.82173691287639817263897126389712638972163e-300
+          ]
index 90da1d8..ceac9a5 100644 (file)
@@ -11,36 +11,36 @@ main = do
where
do_char char = s ++ (take (12-length s) (repeat ' ')) ++ concat (map f bs)
where
-         s = show char
-         bs = map (\$char) functions
-         f True  = "X     "
-         f False = "      "
+          s = show char
+          bs = map (\$char) functions
+          f True  = "X     "
+          f False = "      "

strs = ["upper","lower","alpha","alnum","digit","print","space","cntrl"]

functions = [isUpper,isLower,isAlpha,isAlphaNum,isDigit,isPrint,isSpace,isControl]

chars = [backspace,tab,space,zero,lower_a,upper_a,delete,
-       right_pointing_double_angle_quotation_mark,
-       greek_capital_letter_alpha,
-       bengali_digit_zero,
-       en_space,
-       gothic_letter_ahsa,
-       monospaced_digit_zero
-       ]
+        right_pointing_double_angle_quotation_mark,
+        greek_capital_letter_alpha,
+        bengali_digit_zero,
+        en_space,
+        gothic_letter_ahsa,
+        monospaced_digit_zero
+        ]

backspace             = '\x08'
-tab                  = '\t'
-space                = ' '
-zero                 = '0'
-lower_a                      = 'a'
-upper_a                      = 'A'
+tab                   = '\t'
+space                 = ' '
+zero                  = '0'
+lower_a               = 'a'
+upper_a               = 'A'
delete                = '\x7f'
right_pointing_double_angle_quotation_mark = '\xBB'
latin_small_letter_i_with_caron = '\x1D0'
combining_acute_accent = '\x301'
greek_capital_letter_alpha = '\x0391'
bengali_digit_zero    = '\x09E6'
-en_space             = '\x2002'
+en_space              = '\x2002'
gothic_letter_ahsa    = '\x10330'
monospaced_digit_zero = '\x1D7F6'
index 50ed5dd..f7b9187 100644 (file)
@@ -41,4 +41,4 @@ main = do