Week 003: R solution for part 2

2 files changed, 25 insertions, 0 deletions

diff --git a/challenge-003/abigail/README.md b/challenge-003/abigail/README.md
index 35517254ce..457b8caa5a 100644
--- a/challenge-003/abigail/README.md
+++ b/challenge-003/abigail/README.md
@@ -30,4 +30,5 @@
 * [Pascal](pascal/ch-2.p)
 * [Perl](perl/ch-2.pl)
 * [Python](python/ch-2.py)
+* [R](r/ch-2.r)
 * [Ruby](ruby/ch-2.rb)
diff --git a/challenge-003/abigail/r/ch-2.r b/challenge-003/abigail/r/ch-2.r
new file mode 100644
index 0000000000..fa4fa1626c
--- /dev/null
+++ b/challenge-003/abigail/r/ch-2.r
@@ -0,0 +1,24 @@
+#!/usr/local/bin/Rscript
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-003
+#
+
+#
+# Run as: Rscript ch-2.r < input-file
+#
+
+stdin <- file ('stdin', 'r')
+repeat {
+    max <- readLines (stdin, n = 1)
+    if (length (max) == 0) {
+        break
+    }
+    max = as.integer (max)
+    row <- c (1)
+    cat (row, "\n")
+    for (r in 1 : max) {
+        row <- c (0, row) + c (row, 0)
+        cat (row, "\n")
+    }
+}