1 files changed, 17 insertions, 0 deletions
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