[project @ 1999-01-23 18:07:42 by sof]

[ghc-hetmet.git] / ghc / tests / programs / waugh_neural / BpGen.lhs

diff --git a/ghc/tests/programs/waugh_neural/BpGen.lhs b/ghc/tests/programs/waugh_neural/BpGen.lhs
index 6901c5c..edba27a 100644 (file)
--- a/ghc/tests/programs/waugh_neural/BpGen.lhs
+++ b/ghc/tests/programs/waugh_neural/BpGen.lhs
@@ -20,6 +20,11 @@ Need to use modules for matrix and vector operations.
 > import List(transpose)
 > infixl 7 $$
 
+> randomInts :: a -> Int -> [Int]
+> randomInts _ l = randoms (mkStdGen l)
+> randomDoubles :: a -> Int -> [Double]
+> randomDoubles _ l = randoms (mkStdGen l)
+
 -------------------------------------------------------------------------------
 |                              Data Types                                    |
 -------------------------------------------------------------------------------