git.iko.soy/typeable/attoparsec
on master help sign in
Merge
bfe3cf3Bryan O'Sullivan
benchmarks/Tiny.hs+1−1
compare with master
unifiedsplit
@@ -14,7 +14,7 @@ attoparsec = do
14 A.Done _ xs -> print (length xs)
14 A.Done _ xs -> print (length xs)
15 what -> print what
15 what -> print what
16 where
16 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)
18 fast = A.many (A.takeWhile1 isLetter <|> A.takeWhile1 isDigit)
18 fast = A.many (A.takeWhile1 isLetter <|> A.takeWhile1 isDigit)
19 isDigit c = c >= '0' && c <= '9'
19 isDigit c = c >= '0' && c <= '9'
20 isLetter c = (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')
20 isLetter c = (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')