diff options
| -rw-r--r-- | challenge-003/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-003/abigail/r/ch-2.r | 24 |
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") + } +} |