From d4352fdcecacd204b52e1c1a3646633e963e5490 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Thu, 15 Jan 2026 21:30:26 +0100 Subject: Add benchmarks for sumFull --- bench/Main.hs | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/bench/Main.hs b/bench/Main.hs index 2058e77..ce3a9df 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -176,6 +176,15 @@ tests_compare = ,bench "sum Double [1e6]" $ nf (\a -> runScalar (rsumOuter1Prim a)) (riota @Double n) + ,bench "sumAll iota [1e6]" $ + nf (\a -> rsumAllPrim a) + (riota @Double n) + ,bench "sumAll rev1(iota) [1e6]" $ + nf (\a -> rsumAllPrim a) + (rrev1 $ riota @Double n) + ,bench "sumAll reshape(iota) [1e6]" $ + nf (\a -> rsumAllPrim a) + (rreshape (1 :$: n :$: 1 :$: ZSR) $ riota @Double n) ] ,bgroup "NumElt" [bench "sum(+) Double [1e6]" $ -- cgit v1.2.3-70-g09d2