Whitespace only in tests
authorIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 22:42:42 +0000 (22:42 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 22:42:42 +0000 (22:42 +0000)
tests/CPUTime001.hs
tests/Numeric/num002.hs
tests/Numeric/num003.hs
tests/Numeric/num004.hs
tests/Numeric/num005.hs
tests/Numeric/num006.hs
tests/Numeric/num007.hs
tests/Numeric/num008.hs
tests/unicode001.hs
tests/unicode002.hs

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 
-   rd :: ReadS Integer 
+main =
+  let
+   rd :: ReadS Integer
    rd = readSigned (readInt 10 (isDigit) (digitToInt))
   in
   do
index 0eb2bee..8159988 100644 (file)
@@ -5,9 +5,9 @@ module Main(main) where
 import Numeric
 import Data.Char
 
-main = 
-  let 
-   rd :: ReadS Integer 
+main =
+  let
+   rd :: ReadS Integer
    rd = readSigned (readInt 10 (isDigit) (digitToInt))
   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
    present "(readDec::ReadS Integer)" (readDec::ReadS Integer) ls
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
   putStrLn (show (readOct "00000111"))
   putStrLn (show (readDec "00000111"))
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
     putStrLn header
     mapM (putStrLn . charCode) [ (chr 0) .. (chr 6553) ]
 
-  
+