diff options
Diffstat (limited to 'examples/benchmarks.hs')
-rw-r--r-- | examples/benchmarks.hs | 2 |
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 | ||
49 | sumVH v = go (d - 1) 0 | 50 | sumVH 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 |
65 | sumVector = foldVector (+) 0.0 | 66 | sumVector = foldVector (+) 0.0 |
66 | 67 | ||
67 | |||
68 | -------------------------------------------------------------------------------- | 68 | -------------------------------------------------------------------------------- |
69 | 69 | ||
70 | bench2 = do | 70 | bench2 = do |