diff options
author | Tom Smeding <tom@tomsmeding.com> | 2025-03-12 22:23:18 +0100 |
---|---|---|
committer | Tom Smeding <tom@tomsmeding.com> | 2025-03-12 22:23:18 +0100 |
commit | 4d0f940f258d9bd0684607f996559d9d47968fdd (patch) | |
tree | 0a200dc53064fe34d2920be21f19a5223ea1addb /bench/Main.hs | |
parent | a36d23048be6e2ad0e4516965f1e8b48756ef78b (diff) |
bench: Measure binary op on mismatched strides
Diffstat (limited to 'bench/Main.hs')
-rw-r--r-- | bench/Main.hs | 4 |
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) |