[project @ 1998-04-30 20:38:38 by sof]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith008.hs

diff --git a/ghc/tests/numeric/should_run/arith008.hs b/ghc/tests/numeric/should_run/arith008.hs
index 73bbd71..b9e3ff5 100644 (file)
--- a/ghc/tests/numeric/should_run/arith008.hs
+++ b/ghc/tests/numeric/should_run/arith008.hs
@@ -1,6 +1,7 @@
 --!!! a random test from Nick North
 -- (got this in mid-1993; don't remember why.  WDP 95/02)
 --
+
 random_numbers :: (Int, Int, Int) -> [Float]
 random_numbers (s1,s2,s3)
     =  map (snd . properFraction . combine) (iterate f (s1,s2,s3))
@@ -13,8 +14,11 @@ random_numbers (s1,s2,s3)
            ((171*a) `mod` 30269, (172*b) `mod` 30307, (170*c) `mod` 30323)
 
 -- partain: changed to cvt spaces into newlines (easier to see bugs)
+-- sof: define approp. version of showList to do this.
+main = putStr (showL (showsPrec 0) (take 1000 (random_numbers (9807, 65, 32975))) "\n")
 
-main = putStr (map cvt (shows (take 1000 (random_numbers (9807, 65, 32975))) "\n"))
+showL showx []     = showString "[]"
+showL showx (x:xs) = showChar '[' . showx x . showl xs
   where
-    cvt ' ' = '\n'
-    cvt c   = c
+    showl []     = showChar ']'
+    showl (x:xs) = showString ",\n" . showx x . showl xs