@@ -14,7 +14,7 @@ attoparsec = do
1414 A.Done _ xs -> print (length xs)
1515 what -> print what
1616 where
17− slow = A.many (A.many1 A.letter <|> A.many1 A.digit)
17+ slow = A.many (A.many1 A.letter_ascii <|> A.many1 A.digit)
1818 fast = A.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')