@@ -16,8 +16,12 @@ import Common (rechunkBS)
1616
1717genome :: Benchmark
1818genome = bgroup "genome" [
19− bench "search/B" $ nf (map (parse searchBS)) (B8.tails geneB)
20− , bench "search/BL" $ nf (map (L.parse searchBS)) (L8.tails geneBL)
19+ bench "B" $ nf (map (parse searchBS)) (B8.tails geneB)
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+ ]
2125 ]
2226 where geneB = B8.pack gene
2327 geneBL = rechunkBS 4 geneB
@@ -25,6 +29,9 @@ genome = bgroup "genome" [
2529searchBS :: Parser ByteString
2630searchBS = "caac" *> ("aaca" <|> "aact")
2731
32+searchBSCI :: Parser ByteString
33+searchBSCI = stringCI "CAAC" *> (stringCI "AACA" <|> stringCI "AACT")
34+
2835-- Dictyostelium discoideum developmental protein DG1094 (gacT) gene,
2936-- partial cds. http://www.ncbi.nlm.nih.gov/nuccore/AF081586.1
3037