diff options
| author | Alberto Ruiz <aruiz@um.es> | 2009-12-02 13:06:42 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2009-12-02 13:06:42 +0000 |
| commit | 30a91aad855791ab86a6d749dc6b732d5859b217 (patch) | |
| tree | 56c772dad7850d500623bf61e8cfbc9eac419cb5 /examples | |
| parent | d7314171a1b86207668de8b69180079f7843fffc (diff) | |
new rnf instances
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/parallel.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/parallel.hs b/examples/parallel.hs index 9d5ae3b..388a48e 100644 --- a/examples/parallel.hs +++ b/examples/parallel.hs | |||
| @@ -5,7 +5,8 @@ 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 rwhnf id | 8 | inParallel = parMap rdeepseq id |
| 9 | -- rwhnf also works in this case | ||
| 9 | 10 | ||
| 10 | -- matrix product decomposed into p parallel subtasks | 11 | -- matrix product decomposed into p parallel subtasks |
| 11 | parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] | 12 | parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] |