From 9ae208680a21fc58daa081fead548b740c64bbba Mon Sep 17 00:00:00 2001
From: wanderdoc <wanderdoc@googlemail.com>
Date: Mon, 29 Jun 2020 20:25:32 +0200
Subject: Solutions to challenge-067.

---
 challenge-067/wanderdoc/R/ch-1.R |  7 +++++++
 challenge-067/wanderdoc/R/ch-2.R | 17 +++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 challenge-067/wanderdoc/R/ch-1.R
 create mode 100644 challenge-067/wanderdoc/R/ch-2.R

(limited to 'challenge-067/wanderdoc/R')

diff --git a/challenge-067/wanderdoc/R/ch-1.R b/challenge-067/wanderdoc/R/ch-1.R
new file mode 100644
index 0000000000..6fbc030cdc
--- /dev/null
+++ b/challenge-067/wanderdoc/R/ch-1.R
@@ -0,0 +1,7 @@
+x <- 5
+y <- 1:x
+z <- 2
+
+combn(y,z)
+# or:
+as.data.frame(t(unlist(apply(combn(y,z), 2, list), recursive = FALSE)), row.names = c(""))
\ No newline at end of file
diff --git a/challenge-067/wanderdoc/R/ch-2.R b/challenge-067/wanderdoc/R/ch-2.R
new file mode 100644
index 0000000000..9d89c4adc1
--- /dev/null
+++ b/challenge-067/wanderdoc/R/ch-2.R
@@ -0,0 +1,17 @@
+tel <- list(
+  "1" = c("-", ",", "@"),
+  "2" = c("A", "B", "C"),
+  
+  "3" = c("D", "E", "F"),
+  "4" = c("G", "H", "I"),
+  "5" = c("J", "K", "L"),
+  "6" = c("M", "N", "O"),
+  "7" = c("P", "Q", "R", "S"),
+  "8" = c("T", "U", "V"),
+  "9" = c("W", "X", "Y", "Z")
+)
+
+string <- c("35")
+selection <- unlist(strsplit(string, NULL))
+
+expand.grid(lapply(tel[selection], tolower))
\ No newline at end of file
-- 
cgit