From 3cfce69bf3cb7d7f7976abb454b64f6fa3a32c97 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 23 Sep 2010 09:49:04 +0000 Subject: minor doc fix, clean Plot --- examples/parallel.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples') diff --git a/examples/parallel.hs b/examples/parallel.hs index 435e367..c82114f 100644 --- a/examples/parallel.hs +++ b/examples/parallel.hs @@ -15,10 +15,10 @@ parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] main = do n <- (read . head) `fmap` getArgs let m = ident n :: Matrix Double - time $ print $ vectorMax $ takeDiag $ m <> m - time $ print $ vectorMax $ takeDiag $ parMul 2 m m - time $ print $ vectorMax $ takeDiag $ parMul 4 m m - time $ print $ vectorMax $ takeDiag $ parMul 8 m m + time $ print $ maxElement $ takeDiag $ m <> m + time $ print $ maxElement $ takeDiag $ parMul 2 m m + time $ print $ maxElement $ takeDiag $ parMul 4 m m + time $ print $ maxElement $ takeDiag $ parMul 8 m m time act = do t0 <- getClockTime -- cgit v1.2.3