diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-10-01 18:52:46 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-10-01 18:52:46 +0000 |
| commit | d925bada507562250a75587c409bdb35bbbc6ed8 (patch) | |
| tree | 3c83410ce29de563f55b00923298494d9a7c64d9 /examples/parallel.hs | |
| parent | c99b8fd6e3f8a2fb365ec12baf838f864b118ece (diff) | |
misc examples
Diffstat (limited to 'examples/parallel.hs')
| -rw-r--r-- | examples/parallel.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/examples/parallel.hs b/examples/parallel.hs new file mode 100644 index 0000000..2ad686e --- /dev/null +++ b/examples/parallel.hs | |||
| @@ -0,0 +1,10 @@ | |||
| 1 | import System(getArgs) | ||
| 2 | import Numeric.LinearAlgebra | ||
| 3 | import Control.Parallel.Strategies | ||
| 4 | |||
| 5 | work k = vectorMax s | ||
| 6 | where (_,s,_) = svd (ident k :: Matrix Double) | ||
| 7 | |||
| 8 | main = do | ||
| 9 | args <- (read . head) `fmap` getArgs | ||
| 10 | print $ sum $ parMap rnf work args \ No newline at end of file | ||