diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-09-23 09:49:04 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-09-23 09:49:04 +0000 |
commit | 3cfce69bf3cb7d7f7976abb454b64f6fa3a32c97 (patch) | |
tree | 6c8d4b0ccbfc2eb289d9112c9106a53af58c6820 /examples | |
parent | 778e63dcc2b348914a4f6975f5328ff7fd25638a (diff) |
minor doc fix, clean Plot
Diffstat (limited to 'examples')
-rw-r--r-- | examples/parallel.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 ) ] | |||
15 | main = do | 15 | main = do |
16 | n <- (read . head) `fmap` getArgs | 16 | n <- (read . head) `fmap` getArgs |
17 | let m = ident n :: Matrix Double | 17 | let m = ident n :: Matrix Double |
18 | time $ print $ vectorMax $ takeDiag $ m <> m | 18 | time $ print $ maxElement $ takeDiag $ m <> m |
19 | time $ print $ vectorMax $ takeDiag $ parMul 2 m m | 19 | time $ print $ maxElement $ takeDiag $ parMul 2 m m |
20 | time $ print $ vectorMax $ takeDiag $ parMul 4 m m | 20 | time $ print $ maxElement $ takeDiag $ parMul 4 m m |
21 | time $ print $ vectorMax $ takeDiag $ parMul 8 m m | 21 | time $ print $ maxElement $ takeDiag $ parMul 8 m m |
22 | 22 | ||
23 | time act = do | 23 | time act = do |
24 | t0 <- getClockTime | 24 | t0 <- getClockTime |