R solutions for week 134

3 files changed, 42 insertions, 0 deletions

diff --git a/challenge-134/abigail/README.md b/challenge-134/abigail/README.md
index af093cceb0..54d7fd6307 100644
--- a/challenge-134/abigail/README.md
+++ b/challenge-134/abigail/README.md
@@ -15,6 +15,7 @@
 * [Node.js](node/ch-1.js)
 * [Perl](perl/ch-1.pl)
 * [Python](python/ch-1.py)
+* [R](r/ch-1.r)
 * [Ruby](ruby/ch-1.rb)
 * [Scheme](scheme/ch-1.scm)
 * [Tcl](tcl/ch-1.tcl)
@@ -31,6 +32,7 @@
 * [Node.js](node/ch-2.js)
 * [Perl](perl/ch-2.pl)
 * [Python](python/ch-2.py)
+* [R](r/ch-2.r)
 * [Ruby](ruby/ch-2.rb)
 * [Scheme](scheme/ch-2.scm)
 * [Tcl](tcl/ch-2.tcl)
diff --git a/challenge-134/abigail/r/ch-1.r b/challenge-134/abigail/r/ch-1.r
new file mode 100644
index 0000000000..e58f54cbfd
--- /dev/null
+++ b/challenge-134/abigail/r/ch-1.r
@@ -0,0 +1,11 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: Rscript ch-1.r
+#
+
+t <- c (789, 798, 879, 897, 978)
+t <- t + 1023456000
+cat (t, sep = "\n")
diff --git a/challenge-134/abigail/r/ch-2.r b/challenge-134/abigail/r/ch-2.r
new file mode 100644
index 0000000000..2e7c3e93e7
--- /dev/null
+++ b/challenge-134/abigail/r/ch-2.r
@@ -0,0 +1,29 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: Rscript ch-2.r < input-file
+#
+
+stdin <- file ('stdin', 'r')
+repeat {
+    line <- readLines (stdin, n = 1)
+    if (length (line) == 0) {
+        break
+    }
+    parts <- strsplit (line, " ")
+
+    m <- as.numeric (parts [[1]] [[1]])
+    n <- as.numeric (parts [[1]] [[2]])
+
+    seen <- replicate (m * n, 0)
+
+    for (i in 1 : m) {
+        for (j in 1 : n) {
+            seen [[i * j]] <- 1
+        }
+    }
+
+    cat (sum (seen), "\n")
+}