Delete rotted spec-constr test code
authorBen Lippmeier <benl@ouroborus.net>
Mon, 23 Jan 2012 04:46:14 +0000 (15:46 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Mon, 23 Jan 2012 04:46:14 +0000 (15:46 +1100)
examples/spec-constr/Makefile [deleted file]
examples/spec-constr/Pipelines.hs [deleted file]
examples/spec-constr/spec-constr.hs [deleted file]

diff --git a/examples/spec-constr/Makefile b/examples/spec-constr/Makefile
deleted file mode 100644 (file)
index 977aa40..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-TOPDIR = ..
-BINARIES = spec-constr
-
-spec-constr_SOURCES = Pipelines.hs spec-constr.hs
-spec-constr_FLAGS = -package dph-prim-seq -package dph-base
-
-include $(TOPDIR)/mk/test.mk
diff --git a/examples/spec-constr/Pipelines.hs b/examples/spec-constr/Pipelines.hs
deleted file mode 100644 (file)
index 5da7b86..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-module Pipelines where
-
-import Data.Array.Parallel.Unlifted as U
-
-pipe1 :: U.Array Int -> U.Array Int -> U.Array Int
-pipe1 xs ys = U.map (+1) (xs +:+ ys)
-{-# NOINLINE pipe1 #-}
-
-pipe2 :: U.Array Int -> U.Array Int
-pipe2 = U.map (+1) . U.tail
-{-# NOINLINE pipe2 #-}
-
-pipe3 :: U.Array Int -> Int
-pipe3 = U.maximum . U.scan1 (+)
-{-# NOINLINE pipe3 #-}
-
-pipe4 :: U.SArray Int -> Int
-pipe4 = U.maximum . U.sum_s
-{-# NOINLINE pipe4 #-}
-
-pipe5 :: U.Array Int -> U.Array Int
-{-# NOINLINE pipe5 #-}
-pipe5 xs = U.sum_s (U.replicate_s (U.replicate (U.length xs) 5) xs)
-
diff --git a/examples/spec-constr/spec-constr.hs b/examples/spec-constr/spec-constr.hs
deleted file mode 100644 (file)
index 80ef69a..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-import Data.Array.Parallel.Unlifted
-
-import Bench.Benchmark
-import Bench.Options
-
-import System.Random
-import System.Console.GetOpt
-
-import Pipelines as P
-
-type Gen a = forall g. RandomGen g => Int -> g -> IO a
-
-data Algo = forall a b. Algo (a -> b) (Gen a)
-
-algs :: [(String, Algo)]
-algs = [("pipe1", Algo (uncurry pipe1) (uarr >< uarr))
-       ,("pipe2", Algo pipe2           uarr)
-       ,("pipe3", Algo pipe3           uarr)
-       ,("pipe4", Algo pipe4           suarr)
-       ,("pipe5", Algo pipe5           uarr)
-       ]
-
-uarr :: (UA a, Random a) => Gen (UArr a)
-uarr n g = return $! randomU n g
-
-suarr :: (UA a, Random a) => Gen (SUArr a)
-suarr n g =
-  do let lens = replicateU (n `div` 10) (10 :: Int)
-         segd = lengthsToUSegd lens
-         n'   = (n `div` 10) * 10
-         arr  = randomU n' g
-     segd `seq` arr `seq` return (segd >: arr)
-            
-(><) :: Gen a -> Gen b -> Gen (a,b)
-(h1 >< h2) n g = let (g1,g2) = split g
-                 in
-                 do x <- h1 n g1
-                    y <- h2 n g2
-                    return (x,y)
-
-randomGens :: RandomGen g => Int -> g -> [g]
-randomGens 0 g = []
-randomGens n g = let (g1,g2) = split g
-                 in g1 : randomGens (n-1) g2
-
-main = ndpMain "SpecConstr test"
-               "[OPTION] ... SIZE"
-               run [Option ['a'] ["algo"] (ReqArg const "ALGORITHM")
-                      "use the selected algorithm"]
-                   "<none>"
-
-run opts alg sizes =
-  case lookup alg algs of
-    Nothing      -> failWith ["Unknown algorithm"]
-    Just (Algo f gen) ->
-      case map read sizes of
-        []  -> failWith ["No sizes specified"]
-        szs -> do
-                 g <- getStdGen
-                 let gs = randomGens (length szs) g
-                 benchmark opts f
-                   (zipWith (mk gen) szs gs)
-                   (const "")
-                 return ()
-  where
-    mk gen n g = do
-                   x <- gen n g
-                   return $ ("N = " ++ show n) `mkPoint` x
-