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 @@
+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

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