From e9f9f6ceb5913d045e724ae49093bf9d7f5e2e02 Mon Sep 17 00:00:00 2001 From: Alexey Khudyakov Date: Thu, 31 Oct 2024 21:08:18 +0300 Subject: [PATCH] Add missing permutation benchmark to *-papi A backpack, A backpack, My kingdom for a backpack! --- vector-bench-papi/benchmarks/Main.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/vector-bench-papi/benchmarks/Main.hs b/vector-bench-papi/benchmarks/Main.hs index 55eec45f..590a7573 100644 --- a/vector-bench-papi/benchmarks/Main.hs +++ b/vector-bench-papi/benchmarks/Main.hs @@ -11,6 +11,7 @@ import Bench.Vector.Algo.Quickhull (quickhull) import Bench.Vector.Algo.Spectral (spectral) import Bench.Vector.Algo.Tridiag (tridiag) import Bench.Vector.Algo.FindIndexR (findIndexR, findIndexR_naive, findIndexR_manual) +import Bench.Vector.Algo.NextPermutation (generatePermTests) import Bench.Vector.TestData.ParenTree (parenTree) import Bench.Vector.TestData.Graph (randomGraph) @@ -49,6 +50,7 @@ main = do !ds <- randomVector useSize !sp <- randomVector (floor $ sqrt $ fromIntegral useSize) vi <- MV.new useSize + permTests <- generatePermTests gen useSize defaultMainWithIngredients ingredients $ bgroup "All" [ bench "listRank" $ whnf listRank useSize @@ -65,4 +67,5 @@ main = do , bench "findIndexR_manual" $ whnf findIndexR_manual (( x*x*x)) as , bench "maximumOn" $ whnf (U.maximumOn (\x -> x*x*x)) as + , bgroup "(next|prev)Permutation" $ map (\(name, act) -> bench name $ whnfIO act) permTests ]