1 files changed, 0 insertions, 28 deletions

diff --git a/examples/parallel.hs b/examples/parallel.hs
deleted file mode 100644
index 7256fb6..0000000
--- a/examples/parallel.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-import System(getArgs)
-import Numeric.LinearAlgebra
-import Control.Parallel.Strategies
-import System.Time
-
-inParallel = parMap rwhnf id
-
-parMul x y = fromBlocks [inParallel[x <> y1, x <> y2]]
-    where p = cols y `div` 2
-          (y1,y2) = splitColumnsAt p y
-
-main = do
-    n <- (read . head) `fmap` getArgs
-    let m = ident n :: Matrix Double
-    time $ print $ vectorMax $ takeDiag $ parMul m m
-    time $ print $ vectorMax $ takeDiag $ m <> m
-
-a = (2><3) [1..6::Double]
-b = (3><4) [1..12::Double]
-
-splitRowsAt p m    = (takeRows p m, dropRows p m)
-splitColumnsAt p m = (takeColumns p m, dropColumns p m)
-
-time act = do
-    t0 <- getClockTime
-    act
-    t1 <- getClockTime
-    print $ tdSec $ normalizeTimeDiff $ diffClockTimes t1 t0