summaryrefslogtreecommitdiff
path: root/examples/benchmarks.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/benchmarks.hs')
-rw-r--r--examples/benchmarks.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/benchmarks.hs b/examples/benchmarks.hs
index 0e95851..bffa221 100644
--- a/examples/benchmarks.hs
+++ b/examples/benchmarks.hs
@@ -45,6 +45,7 @@ bench1 = do
45 putStrLn "constant 5M:" 45 putStrLn "constant 5M:"
46 time $ print $ constant (1::Double) 5000001 @> 7 46 time $ print $ constant (1::Double) 5000001 @> 7
47 time $ print $ constant i 5000001 @> 7 47 time $ print $ constant i 5000001 @> 7
48 time $ print $ conj (constant i 5000001) @> 7
48 49
49sumVH v = go (d - 1) 0 50sumVH v = go (d - 1) 0
50 where 51 where
@@ -64,7 +65,6 @@ innerH u v = go (d - 1) 0
64-- sumVector = foldVectorG (\k v s -> v k + s) 0.0 65-- sumVector = foldVectorG (\k v s -> v k + s) 0.0
65sumVector = foldVector (+) 0.0 66sumVector = foldVector (+) 0.0
66 67
67
68-------------------------------------------------------------------------------- 68--------------------------------------------------------------------------------
69 69
70bench2 = do 70bench2 = do