projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-06-12 21:40:05 by panne]
[ghc-hetmet.git]
/
ghc
/
tests
/
programs
/
waugh_neural
/
Main.lhs
diff --git
a/ghc/tests/programs/waugh_neural/Main.lhs
b/ghc/tests/programs/waugh_neural/Main.lhs
index
5eed87f
..
7776183
100644
(file)
--- a/
ghc/tests/programs/waugh_neural/Main.lhs
+++ b/
ghc/tests/programs/waugh_neural/Main.lhs
@@
-7,8
+7,7
@@
backpropagation functions and values.
> import BpGen
> import ReadLists (readWhiteList)
> import BpGen
> import ReadLists (readWhiteList)
-> import {-fool mkdependHS-}
-> Printf
+> import Numeric(showFFloat)
-------------------------------------------------------------------------------
| Constant Values |
-------------------------------------------------------------------------------
| Constant Values |
@@
-79,7
+78,7
@@
The following constants set the training problem and parameters:
-------------------------------------------------------------------------------
> showdouble :: Double -> ShowS
-------------------------------------------------------------------------------
> showdouble :: Double -> ShowS
-> showdouble v = showString (printf "%6.4f " [UDouble v])
+> showdouble = showFFloat (Just 4)
> showdoubles :: [Double] -> ShowS
> showdoubles [] = showString ""
> showdoubles :: [Double] -> ShowS
> showdoubles [] = showString ""