From dea00517a29330073049bcab2643d31b3fab85a3 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 14 Mar 2025 21:55:14 +0100 Subject: bench: Update with recent renames --- bench/Main.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'bench') diff --git a/bench/Main.hs b/bench/Main.hs index 8a1f165..7f1cbad 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -10,7 +10,7 @@ import Test.Tasty.Bench import Data.Array.Nested import Data.Array.Nested.Internal.Mixed (mliftPrim, mliftPrim2) -import Data.Array.Nested.Internal.Ranked (arithPromoteRanked, arithPromoteRanked2) +import Data.Array.Nested.Internal.Ranked (liftRanked1, liftRanked2) enableMisc :: Bool @@ -26,23 +26,23 @@ main = defaultMain [bgroup "Num" [bench "sum(+) Double [1e6]" $ let n = 1_000_000 - in nf (\(a, b) -> runScalar (rsumOuter1 (arithPromoteRanked2 (mliftPrim2 (+)) a b))) + in nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (+)) a b))) (riota @Double n, riota n) ,bench "sum(*) Double [1e6]" $ let n = 1_000_000 - in nf (\(a, b) -> runScalar (rsumOuter1 (arithPromoteRanked2 (mliftPrim2 (*)) a b))) + in nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (*)) a b))) (riota @Double n, riota n) ,bench "sum(/) Double [1e6]" $ let n = 1_000_000 - in nf (\(a, b) -> runScalar (rsumOuter1 (arithPromoteRanked2 (mliftPrim2 (/)) a b))) + in nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (/)) a b))) (riota @Double n, riota n) ,bench "sum(**) Double [1e6]" $ let n = 1_000_000 - in nf (\(a, b) -> runScalar (rsumOuter1 (arithPromoteRanked2 (mliftPrim2 (**)) a b))) + in nf (\(a, b) -> runScalar (rsumOuter1 (liftRanked2 (mliftPrim2 (**)) a b))) (riota @Double n, riota n) ,bench "sum(sin) Double [1e6]" $ let n = 1_000_000 - in nf (\a -> runScalar (rsumOuter1 (arithPromoteRanked (mliftPrim sin) a))) + in nf (\a -> runScalar (rsumOuter1 (liftRanked1 (mliftPrim sin) a))) (riota @Double n) ,bench "sum Double [1e6]" $ let n = 1_000_000 -- cgit v1.2.3-70-g09d2