diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-03-14 21:55:14 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-03-14 21:55:14 +0100 |
| commit | dea00517a29330073049bcab2643d31b3fab85a3 (patch) | |
| tree | 289453b3700930561dc62f3c50c8f622ee0d38e1 | |
| parent | 639acb0abed995400d984203684e178a11d91fa1 (diff) | |
bench: Update with recent renames
| -rw-r--r-- | bench/Main.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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 |