Benchmark string-parsers

Author: jamesdbrock

bench/Main.purs

@@ -56,6 +56,9 @@ import Performance.Minibench (benchWith)
 import Text.Parsing.Parser (Parser, runParser)
 import Text.Parsing.Parser.String (string)
 import Text.Parsing.Parser.Token (digit)
+import Text.Parsing.StringParser as StringParser
+import Text.Parsing.StringParser.CodePoints as StringParser.CodePoints
+import Text.Parsing.StringParser.CodeUnits as StringParser.CodeUnits
 
 string23 :: String
 string23 = "23"
@@ -74,6 +77,12 @@ stringSkidoo_10000 = fold $ replicate 10000 stringSkidoo
 parse23 :: Parser String (List Char)
 parse23 = manyRec digit
 
+parse23Points :: StringParser.Parser (List Char)
+parse23Points = manyRec StringParser.CodePoints.anyDigit
+
+parse23Units :: StringParser.Parser (List Char)
+parse23Units = manyRec StringParser.CodeUnits.anyDigit
+
 pattern23 :: Regex
 pattern23 = either (unsafePerformEffect <<< throw) identity $
   regex "\\d" $ RegexFlags
@@ -108,6 +117,12 @@ main = do
   log "runParser parse23"
   benchWith 200
     $ \_ -> runParser string23_10000 parse23
+  log "StringParser.runParser parse23Points"
+  benchWith 200
+    $ \_ -> StringParser.runParser parse23Points string23_10000
+  log "StringParser.runParser parse23Units"
+  benchWith 200
+    $ \_ -> StringParser.runParser parse23Units string23_10000
   log "Regex.match pattern23"
   benchWith 200
     $ \_ -> Regex.match pattern23 string23_10000

spago-dev.dhall

@@ -16,6 +16,7 @@ in conf //
   , "psci-support"
   , "minibench"
   , "exceptions"
+  , "string-parsers"
   ]
 , packages = ./packages.dhall
 }