From 66aab53a6963c8e63dd8f00761dd585de5bc964e Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Sat, 3 Jul 2021 15:12:21 +0200
Subject: R solution for week 119, part 1

---
 challenge-119/abigail/README.md |  1 +
 challenge-119/abigail/r/ch-1.r  | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 challenge-119/abigail/r/ch-1.r

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")
+}
-- 
cgit