git.iko.soy/typeable/attoparsec
on master help sign in
Add case-insensitive benchmarks
2f7febcBryan O'Sullivan
benchmarks/Genome.hs+9−2
compare with master
unifiedsplit
@@ -16,8 +16,12 @@ import Common (rechunkBS)
16
16
17genome :: Benchmark
17genome :: Benchmark
18genome = bgroup "genome" [
18genome = bgroup "genome" [
19− bench "search/B" $ nf (map (parse searchBS)) (B8.tails geneB)
19+ bench "B" $ nf (map (parse searchBS)) (B8.tails geneB)
20− , bench "search/BL" $ nf (map (L.parse searchBS)) (L8.tails geneBL)
20+ , bench "BL" $ nf (map (L.parse searchBS)) (L8.tails geneBL)
21+ , bgroup "CI" [
22+ bench "B" $ nf (map (parse searchBSCI)) (B8.tails geneB)
23+ , bench "BL" $ nf (map (L.parse searchBSCI)) (L8.tails geneBL)
24+ ]
21 ]
25 ]
22 where geneB = B8.pack gene
26 where geneB = B8.pack gene
23 geneBL = rechunkBS 4 geneB
27 geneBL = rechunkBS 4 geneB
@@ -25,6 +29,9 @@ genome = bgroup "genome" [
25searchBS :: Parser ByteString
29searchBS :: Parser ByteString
26searchBS = "caac" *> ("aaca" <|> "aact")
30searchBS = "caac" *> ("aaca" <|> "aact")
27
31
32+searchBSCI :: Parser ByteString
33+searchBSCI = stringCI "CAAC" *> (stringCI "AACA" <|> stringCI "AACT")
34+
28-- Dictyostelium discoideum developmental protein DG1094 (gacT) gene,
35-- Dictyostelium discoideum developmental protein DG1094 (gacT) gene,
29-- partial cds. http://www.ncbi.nlm.nih.gov/nuccore/AF081586.1
36-- partial cds. http://www.ncbi.nlm.nih.gov/nuccore/AF081586.1
30
37