diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-12-02 14:03:33 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-12-02 14:03:33 +0000 |
commit | 2ef7028aab75ee9e96b9f4a429f70d37c63deab5 (patch) | |
tree | 8db245e1db9b082507116f5c29ca4d9a0f59f7d5 /examples | |
parent | 30a91aad855791ab86a6d749dc6b732d5859b217 (diff) |
fix version
Diffstat (limited to 'examples')
-rw-r--r-- | examples/parallel.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/parallel.hs b/examples/parallel.hs index 388a48e..efcbe8a 100644 --- a/examples/parallel.hs +++ b/examples/parallel.hs | |||
@@ -5,8 +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 rdeepseq id | 8 | inParallel = parMap rwhnf id |
9 | -- rwhnf also works in this case | 9 | -- rdeepseq (or older rnf) not needed in this case |
10 | 10 | ||
11 | -- matrix product decomposed into p parallel subtasks | 11 | -- matrix product decomposed into p parallel subtasks |
12 | parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] | 12 | parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ] |