aboutsummaryrefslogtreecommitdiff
path: root/bench
diff options
context:
space:
mode:
Diffstat (limited to 'bench')
-rw-r--r--bench/Main.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/bench/Main.hs b/bench/Main.hs
index f3068d8..8a1f165 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -74,6 +74,10 @@ main = defaultMain
let n = 1_000_000
in nf (\a -> runScalar (rsumOuter1 a))
(riota @Double n)
+ ,bench "sum(*) Double [1e6] stride 1; -1" $
+ let n = 1_000_000
+ in nf (\(a, b) -> runScalar (rsumOuter1 (a * b)))
+ (riota @Double n, rrev1 (riota n))
,bench "dotprod Float [1e6]" $
let n = 1_000_000
in nf (\(a, b) -> rdot a b)