diff options
| author | Abigail <abigail@abigail.be> | 2021-07-03 15:12:21 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-03 15:12:21 +0200 |
| commit | 66aab53a6963c8e63dd8f00761dd585de5bc964e (patch) | |
| tree | d6e34a4073ef2b6924f8ed27fef92532c69aac53 | |
| parent | ae86b7bbd623028dd4d6b15f456e92201e06a83c (diff) | |
| download | perlweeklychallenge-club-66aab53a6963c8e63dd8f00761dd585de5bc964e.tar.gz perlweeklychallenge-club-66aab53a6963c8e63dd8f00761dd585de5bc964e.tar.bz2 perlweeklychallenge-club-66aab53a6963c8e63dd8f00761dd585de5bc964e.zip | |
R solution for week 119, part 1
| -rw-r--r-- | challenge-119/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-119/abigail/r/ch-1.r | 23 |
2 files changed, 24 insertions, 0 deletions
diff --git a/challenge-119/abigail/README.md b/challenge-119/abigail/README.md index c2ba036a3f..45ed81d984 100644 --- a/challenge-119/abigail/README.md +++ b/challenge-119/abigail/README.md @@ -43,6 +43,7 @@ decimal `33`. * [Pascal](pascal/ch-1.p) * [Perl](perl/ch-1.pl) * [Python](python/ch-1.py) +* [R](r/ch-1.r) * [Ruby](ruby/ch-1.rb) ### Blog diff --git a/challenge-119/abigail/r/ch-1.r b/challenge-119/abigail/r/ch-1.r new file mode 100644 index 0000000000..a44b9eb079 --- /dev/null +++ b/challenge-119/abigail/r/ch-1.r @@ -0,0 +1,23 @@ +# +# See ../README.md +# + +# +# Run as: Rscript ch-1.r < input-file +# + +stdin <- file ('stdin', 'r') +repeat { + n <- readLines (stdin, n = 1) + if (length (n) == 0) { + break + } + n = as.integer (n) + # cat ((bitwAnd (n, bitwNot (0xFF))), "\n") + # cat ( bitwShiftL (bitwAnd (n, 0x0F), 4), "\n") + # cat ( bitwShiftR (bitwAnd (n, 0xF0), 4), "\n") + + cat (bitwOr (bitwOr (bitwAnd (n, bitwNot (0xFF)), + bitwShiftL (bitwAnd (n, 0x0F), 4)), + bitwShiftR (bitwAnd (n, 0xF0), 4)), "\n") +} |