1 files changed, 3 insertions, 0 deletions
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

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
55	time $ print $ vectorMax t	55	time $ print $ vectorMax t
56	time $ print $ sqrt $ foldVector (\v s -> v*v+s) 0 t	56	time $ print $ sqrt $ foldVector (\v s -> v*v+s) 0 t
57	time $ print $ pnorm PNorm2 t	57	time $ print $ pnorm PNorm2 t
		58	putStrLn "scale C/BLAS vs H:"
		59	time $ print $ mapVector (*2) t @> 7
		60	time $ print $ (2 * t) @> 7
58		61
59	sumVB v = constant 1 (dim v) <.> v	62	sumVB v = constant 1 (dim v) <.> v
60		63