@@ -104,8 +104,6 @@ o_1_space_joining value =
104 , benchIOSrc1 "concatMapWithZip (+) (2 of n/2)"
104 , benchIOSrc1 "concatMapWithZip (+) (2 of n/2)"
105 (concatMapWithZip 2 (value `div` 2))
105 (concatMapWithZip 2 (value `div` 2))
107− , benchIOSrc1 "concatPairsWithZip (+) (2 of n/2)"
108− (concatPairsWithZip 2 (value `div` 2))
@@ -138,6 +136,8 @@ o_n_heap_concat value =
138 (concatPairsWithZip value 1)
136 (concatPairsWithZip value 1)
139 , benchIOSrc1 "concatPairsWithZip (sqrtVal of sqrtVal)"
137 , benchIOSrc1 "concatPairsWithZip (sqrtVal of sqrtVal)"
140 (concatPairsWithZip sqrtVal sqrtVal)
138 (concatPairsWithZip sqrtVal sqrtVal)
139+ , benchIOSrc1 "concatPairsWithZip (+) (2 of n/2)"
140+ (concatPairsWithZip 2 (value `div` 2))
@@ -176,8 +176,10 @@ main = runWithCLIOpts defaultStreamSize allBenchmarks
176 [ bgroup (o_1_space_prefix moduleName) $ concat
176 [ bgroup (o_1_space_prefix moduleName) $ concat
177 [ o_1_space_joining size
177 [ o_1_space_joining size
178 , o_1_space_mapping size
178 , o_1_space_mapping size
179− , o_n_heap_concat size
180 -- XXX need to fix, timing in ns
179 -- XXX need to fix, timing in ns
181 -- , o_1_space_outerProduct size
180 -- , o_1_space_outerProduct size
182+ , bgroup (o_n_heap_prefix moduleName) $ concat
183+ [ o_n_heap_concat size