From 6be354c6acbf1e07cb32bbedf3cddddd9798d470 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 30 Nov 2008 12:40:37 +0000 Subject: QuickCheck<2, ifdef i386 finit, and credit to Simon Beaumont --- examples/benchmarks.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'examples/benchmarks.hs') diff --git a/examples/benchmarks.hs b/examples/benchmarks.hs index e210280..4fd7a56 100644 --- a/examples/benchmarks.hs +++ b/examples/benchmarks.hs @@ -55,6 +55,9 @@ bench1 = do time $ print $ vectorMax t time $ print $ sqrt $ foldVector (\v s -> v*v+s) 0 t time $ print $ pnorm PNorm2 t + putStrLn "scale C/BLAS vs H:" + time $ print $ mapVector (*2) t @> 7 + time $ print $ (2 * t) @> 7 sumVB v = constant 1 (dim v) <.> v -- cgit v1.2.3