@@ -1,7 +1,7 @@
1−import Control.Applicative ((<|>))
1+import Control.Applicative ((<|>), many)
22import Control.Monad (forM_)
33import System.Environment (getArgs)
4−import qualified Data.Attoparsec.Char8 as A
4+import qualified Data.Attoparsec.ByteString.Char8 as A
55import qualified Data.ByteString.Char8 as B
66import qualified Text.Parsec as P
77import qualified Text.Parsec.ByteString as P
@@ -14,8 +14,8 @@ attoparsec = do
1414 A.Done _ xs -> print (length xs)
1515 what -> print what
1616 where
17− slow = A.many (A.many1 A.letter_ascii <|> A.many1 A.digit)
18− fast = A.many (A.takeWhile1 isLetter <|> A.takeWhile1 isDigit)
17+ slow = many (A.many1 A.letter_ascii <|> A.many1 A.digit)
18+ fast = many (A.takeWhile1 isLetter <|> A.takeWhile1 isDigit)
1919 isDigit c = c >= '0' && c <= '9'
2020 isLetter c = (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')
2121 p = fast