Add R version

Dockerfile

@@ -136,6 +136,10 @@ RUN wget -q https://downloads.python.org/pypy/pypy3.6-v7.3.3-linux64.tar.bz2 -O
     ln -s /opt/pypy3/bin/pypy3 /usr/local/bin/pypy3 && \
     rm pypy3.6-v7.3.3-linux64.tar.bz2
 
+## R
+RUN apg-get install -yq --no-install-recommends \
+        r-base r-cran-stringr r-cran-readr
+
 ## Ruby
 RUN apt-get install -yq --no-install-recommends \
         ruby-full

r/README.md

@@ -0,0 +1,8 @@
+# R Regex Benchmark
+
+## How to run
+
+```sh
+# R
+Rscript --vanilla benchmark.R <filename>
+```

r/benchmark.R

@@ -0,0 +1,30 @@
+#!/usr/bin/env Rscript
+library(stringr)
+library(readr)
+
+measure <- function(data, pattern) {
+    start <- Sys.time()
+    # res <- length(regmatches(data, gregexpr(pattern, data, perl = TRUE))[[1]])
+    res <- str_count(data, pattern)
+    end <- Sys.time()
+    s <- end - start
+    out <- paste0(format(as.numeric(s)*1e3, digits = 3), " - ", res)
+    print(out)
+}
+
+args = commandArgs(trailingOnly=TRUE)
+
+if (length(args)==0) {
+  stop("At least one argument must be supplied (input file).n", call.=FALSE)
+}
+
+file_str <- read_file(args[1])
+
+# Email
+measure(file_str, r"{[\w\\.+-]+@[\w\.-]+\.[\w\.-]+}")
+
+# URI
+measure(file_str, r"{[\w]+://[^/\s?#]+[^\s?#]+(?:\?[^\s#]*)?(?:#[^\s]*)?}")
+
+# IPv4
+measure(file_str, r"{(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9])\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9])}") 

run-benchmarks.php

@@ -48,6 +48,7 @@
     'Python 3'     => 'python3.6 python/benchmark.py',
     'Python PyPy2' => 'pypy2 python/benchmark.py',
     'Python PyPy3' => 'pypy3 python/benchmark.py',
+    'R'            => 'Rscript --vanilla r/benchmark.R',
     'Ruby'         => 'ruby ruby/benchmark.rb',
     'Rust'         => 'rust/target/release/benchmark',
 ];