git.iko.soy/text
on master help sign in
Change builder benchmarks to use foldr
2db8084Johan Tibell
tests/Benchmarks.hs+8−8
compare with master
unifiedsplit
@@ -419,11 +419,11 @@ chunksOf k = go
419 | otherwise -> a : go b
419 | otherwise -> a : go b
420
420
421mappendNChar :: Char -> Int -> TB.Builder
421mappendNChar :: Char -> Int -> TB.Builder
422−mappendNChar c n = go 0 mempty
422+mappendNChar c n = go 0
423 where
423 where
424− go i !acc
424+ go i
425− | i < n = go (i+1) (acc `mappend` TB.singleton c)
425+ | i < n = TB.singleton c `mappend` go (i+1)
426− | otherwise = acc
426+ | otherwise = mempty
427
427
428-- Gives more opportunity for inlining and elimination of unnecesary
428-- Gives more opportunity for inlining and elimination of unnecesary
429-- bounds checks.
429-- bounds checks.
@@ -434,8 +434,8 @@ mappend8Char c = TB.singleton c `mappend` TB.singleton c `mappend`
434 TB.singleton c `mappend` TB.singleton c
434 TB.singleton c `mappend` TB.singleton c
435
435
436mappendNText :: TS.Text -> Int -> TB.Builder
436mappendNText :: TS.Text -> Int -> TB.Builder
437−mappendNText t n = go 0 mempty
437+mappendNText t n = go 0
438 where
438 where
439− go i !acc
439+ go i
440− | i < n = go (i+1) (acc `mappend` TB.fromText t)
440+ | i < n = TB.fromText t `mappend` go (i+1)
441− | otherwise = acc
441+ | otherwise = mempty