git.iko.soy/typeable/attoparsec
on master help sign in
More scan benchmarks
aa3ef16Johan Tibell
benchmarks/Benchmarks.hs+4−1
compare with master
unifiedsplit
@@ -75,7 +75,10 @@ main = do
75 , bench "isAlpha_iso8859_15" $ nf (ABL.parse (AC.takeWhile AC.isAlpha_iso8859_15)) bl
75 , bench "isAlpha_iso8859_15" $ nf (ABL.parse (AC.takeWhile AC.isAlpha_iso8859_15)) bl
76 ]
76 ]
77 , bench "word32LE" $ nf (AB.parse word32LE) b
77 , bench "word32LE" $ nf (AB.parse word32LE) b
78+ , bgroup "scan" [
79+ bench "short" $ nf (AB.parse quotedString) (BC.pack "abcdefghijk\"")
78− , bench "scan" $ nf (AB.parse quotedString) b
80+ , bench "long" $ nf (AB.parse quotedString) b
81+ ]
79 ]
82 ]
80
83
81-- Benchmarks bind and (potential) bounds-check merging.
84-- Benchmarks bind and (potential) bounds-check merging.