diff options
Diffstat (limited to 'examples/parallel.hs')
-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 |