From 218986b88fe2c13e6510ed110735205f60679d23 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Mon, 17 Nov 2025 22:17:31 +0100
Subject: Rename, organise and cleanup

Renamings:
- *sumOuter1 -> *sumOuter1Prim
- *rerank -> *rerankPrim
- *replicateScal -> *replicatePrim
---
 bench/Main.hs | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'bench')

diff --git a/bench/Main.hs b/bench/Main.hs
index b604eb9..8df09a9 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -156,45 +156,45 @@ tests_compare =
   let n = 1_000_000 in
   [bgroup "Num"
     [bench "sum(+) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (+)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (+)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(*) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (*)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (*)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(/) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (/)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (/)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(**) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (**)) a b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (liftRanked2 (mliftPrim2 (**)) a b)))
          (riota @Double n, riota n)
     ,bench "sum(sin) Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 (liftRanked1 (mliftPrim sin) a)))
+      nf (\a -> runScalar (rsumOuter1Prim (liftRanked1 (mliftPrim sin) a)))
          (riota @Double n)
     ,bench "sum Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 a))
+      nf (\a -> runScalar (rsumOuter1Prim a))
          (riota @Double n)
     ]
   ,bgroup "NumElt"
     [bench "sum(+) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a + b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a + b)))
          (riota @Double n, riota n)
     ,bench "sum(*) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a * b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a * b)))
          (riota @Double n, riota n)
     ,bench "sum(/) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a / b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a / b)))
          (riota @Double n, riota n)
     ,bench "sum(**) Double [1e6]" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a ** b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a ** b)))
          (riota @Double n, riota n)
     ,bench "sum(sin) Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 (sin a)))
+      nf (\a -> runScalar (rsumOuter1Prim (sin a)))
          (riota @Double n)
     ,bench "sum Double [1e6]" $
-      nf (\a -> runScalar (rsumOuter1 a))
+      nf (\a -> runScalar (rsumOuter1Prim a))
          (riota @Double n)
     ,bench "sum(*) Double [1e6] stride 1; -1" $
-      nf (\(a, b) -> runScalar (rsumOuter1 (a * b)))
+      nf (\(a, b) -> runScalar (rsumOuter1Prim (a * b)))
          (riota @Double n, rrev1 (riota n))
     ,bench "dotprod Float [1e6]" $
       nf (\(a, b) -> rdot a b)
-- 
cgit v1.2.3-70-g09d2