Commits

Bryan O'Sullivan  committed 0d83ffa

Fix benchmark bit rot

  • Participants
  • Parent commits 42063d3

Comments (0)

Files changed (1)

File benchmarks/Tiny.hs

       A.Done _ xs -> print (length xs)
       what        -> print what
  where
-  slow = A.many (A.many1 A.letter <|> A.many1 A.digit)
+  slow = A.many (A.many1 A.letter_ascii <|> A.many1 A.digit)
   fast = A.many (A.takeWhile1 isLetter <|> A.takeWhile1 isDigit)
   isDigit c  = c >= '0' && c <= '9'
   isLetter c = (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')