@@ -78,6 +78,13 @@ main = do
7878 , bench "bl" $ nf BL.concat bll
7979 , bench "l" $ nf L.concat ll
8080 ],
81+ bgroup "cons" [
82+ bench "ts" $ nf (TS.cons c) tsa
83+ , bench "tl" $ nf (TL.cons c) tla
84+ , bench "bs" $ nf (BS.cons c) bsa
85+ , bench "bl" $ nf (BL.cons c) bla
86+ , bench "l" $ nf (c:) la
87+ ],
8188 bgroup "concatMap" [
8289 bench "ts" $ nf (TS.concatMap (TS.replicate 3 . TS.singleton)) tsa
8390 , bench "tl" $ nf (TL.concatMap (TL.replicate 3 . TL.singleton)) tla
@@ -127,6 +134,20 @@ main = do
127134 , bench "bl" $ nf (L.length . BL.foldr (:) []) bla
128135 , bench "l" $ nf (L.length . L.foldr (:) []) la
129136 ],
137+ bgroup "head" [
138+ bench "ts" $ nf TS.head tsa
139+ , bench "tl" $ nf TL.head tla
140+ , bench "bs" $ nf BS.head bsa
141+ , bench "bl" $ nf BL.head bla
142+ , bench "l" $ nf L.head la
143+ ],
144+ bgroup "init" [
145+ bench "ts" $ nf TS.init tsa
146+ , bench "tl" $ nf TL.init tla
147+ , bench "bs" $ nf BS.init bsa
148+ , bench "bl" $ nf BL.init bla
149+ , bench "l" $ nf L.init la
150+ ],
130151 bgroup "intercalate" [
131152 bench "ts" $ nf (TS.intercalate tsw) tsl
132153 , bench "tl" $ nf (TL.intercalate tlw) tll
@@ -183,6 +204,13 @@ main = do
183204 , bench "bl" $ nf (BL.take (bla_len `div` 3)) bla
184205 , bench "l" $ nf (L.take (la_len `div` 3)) la
185206 ],
207+ bgroup "tail" [
208+ bench "ts" $ nf TS.tail tsa
209+ , bench "tl" $ nf TL.tail tla
210+ , bench "bs" $ nf BS.tail bsa
211+ , bench "bl" $ nf BL.tail bla
212+ , bench "l" $ nf L.tail la
213+ ],
186214 bgroup "words" [
187215 bench "ts" $ nf TS.words tsa
188216 , bench "tl" $ nf TL.words tla
@@ -198,6 +226,13 @@ main = do
198226 , bench "l" $ nf (L.zipWith min lb) la
199227 ],
200228 bgroup "length" [
229+ bgroup "cons" [
230+ bench "ts" $ nf (TS.length . TS.cons c) tsa
231+ , bench "tl" $ nf (TL.length . TL.cons c) tla
232+ , bench "bs" $ nf (BS.length . BS.cons c) bsa
233+ , bench "bl" $ nf (BL.length . BL.cons c) bla
234+ , bench "l" $ nf (L.length . (:) c) la
235+ ],
201236 bgroup "decode" [
202237 bench "ts" $ nf (TS.length . TS.decodeUtf8) bsa
203238 , bench "tl" $ nf (TL.length . TL.decodeUtf8) bla
@@ -226,6 +261,13 @@ main = do
226261 , bench "bl" $ nf (BL.length . BL.filter p1 . BL.filter p0) bla
227262 , bench "l" $ nf (L.length . L.filter p1 . L.filter p0) la
228263 ],
264+ bgroup "init" [
265+ bench "ts" $ nf (TS.length . TS.init) tsa
266+ , bench "tl" $ nf (TL.length . TL.init) tla
267+ , bench "bs" $ nf (BS.length . BS.init) bsa
268+ , bench "bl" $ nf (BL.length . BL.init) bla
269+ , bench "l" $ nf (L.length . L.init) la
270+ ],
229271 bgroup "intercalate" [
230272 bench "ts" $ nf (TS.length . TS.intercalate tsw) tsl
231273 , bench "tl" $ nf (TL.length . TL.intercalate tlw) tll
@@ -260,6 +302,13 @@ main = do
260302 , bench "bl" $ nf (BL.length . BL.take (bla_len `div` 3)) bla
261303 , bench "l" $ nf (L.length . L.take (la_len `div` 3)) la
262304 ],
305+ bgroup "tail" [
306+ bench "ts" $ nf (TS.length . TS.tail) tsa
307+ , bench "tl" $ nf (TL.length . TL.tail) tla
308+ , bench "bs" $ nf (BS.length . BS.tail) bsa
309+ , bench "bl" $ nf (BL.length . BL.tail) bla
310+ , bench "l" $ nf (L.length . L.tail) la
311+ ],
263312 bgroup "words" [
264313 bench "ts" $ nf (L.length . TS.words) tsa
265314 , bench "tl" $ nf (L.length . TL.words) tla