@@ -81,10 +81,15 @@ main = do
8181 , bench "b8" $ nf (L.length . B8.foldr (:) []) s0
8282 , bench "list" $ nf (L.length . L.foldr (:) []) l0
8383 ],
84+ bgroup "intercalate" [
85+ bench "text" $ nf (T.intercalate tw) tl
86+ , bench "b8" $ nf (B8.intercalate sw) sl
87+ , bench "list" $ nf (L.intercalate lw) ll
88+ ],
8489 bgroup "isInfixOf" [
85− bench "text" $ nf (T.isInfixOf (T.pack w)) t0
86− , bench "b8" $ nf (B8.isInfixOf (B8.pack w)) s0
87− , bench "list" $ nf (L.isInfixOf w) l0
90+ bench "text" $ nf (T.isInfixOf tw) t0
91+ , bench "b8" $ nf (B8.isInfixOf sw) s0
92+ , bench "list" $ nf (L.isInfixOf lw) l0
8893 ],
8994 bgroup "last" [
9095 bench "text" $ nf T.last t0
@@ -172,6 +177,8 @@ main = do
172177 where
173178 p0 = (== 'й')
174179 p1 = (/= 'д')
175− w = "право"
180+ lw = "право"
181+ sw = UTF8.fromString lw
182+ tw = T.pack lw
176183 f (C# c#) = C# (chr# (ord# c# +# 1#))
177184 len l _ = l + (1::Int)