Benchmarks: use 10x longer common prefixes

Bodigrim · Apr 27, 2024 · cb46b05 · cb46b05
1 parent ec2a660
commit cb46b05
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bench/RadixTreeBench.hs b/bench/RadixTreeBench.hs
@@ -20,7 +20,7 @@ main :: IO ()
 main = do
   contents <- BS.readFile "du-ghc.txt"
   let assocs :: [(BSS.ShortByteString, Int)]
-      assocs = map ((\[size, name] -> (BSS.toShort name, read (BS.unpack size))) . BS.split '\t') $ BS.lines contents
+      assocs = map ((\[size, name] -> (BSS.toShort $ BS.concatMap (BS.replicate 10) name, read (BS.unpack size))) . BS.split '\t') $ BS.lines contents
 
       keys = map fst assocs