From d925bada507562250a75587c409bdb35bbbc6ed8 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 1 Oct 2007 18:52:46 +0000 Subject: misc examples --- examples/parallel.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 examples/parallel.hs (limited to 'examples/parallel.hs') 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 @@ +import System(getArgs) +import Numeric.LinearAlgebra +import Control.Parallel.Strategies + +work k = vectorMax s + where (_,s,_) = svd (ident k :: Matrix Double) + +main = do + args <- (read . head) `fmap` getArgs + print $ sum $ parMap rnf work args \ No newline at end of file -- cgit v1.2.3