diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-11-18 20:31:20 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-11-18 20:31:20 +0000 |
commit | d7314171a1b86207668de8b69180079f7843fffc (patch) | |
tree | 60ba70dd85996ca01663a3a6a16722a8bf49a521 /examples/parallel.hs | |
parent | d4c5ec0fd9595105963ab99fd9b77267aeab0313 (diff) |
removed rnf instances
Diffstat (limited to 'examples/parallel.hs')
-rw-r--r-- | examples/parallel.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/examples/parallel.hs b/examples/parallel.hs index 8653bc3..9d5ae3b 100644 --- a/examples/parallel.hs +++ b/examples/parallel.hs | |||
@@ -5,8 +5,7 @@ import Numeric.LinearAlgebra | |||
5 | import Control.Parallel.Strategies | 5 | import Control.Parallel.Strategies |
6 | import System.Time | 6 | import System.Time |
7 | 7 | ||
8 | inParallel = parMap rnf id | 8 | inParallel = parMap rwhnf id |
9 | -- rwhnf also works in this case | ||
10 | 9 | ||
11 | -- matrix product decomposed into p parallel subtasks | 10 | -- matrix product decomposed into p parallel subtasks |
12 | parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] | 11 | parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] |