diff options
| author | wanderdoc <wanderdoc@googlemail.com> | 2020-06-29 20:25:32 +0200 |
|---|---|---|
| committer | wanderdoc <wanderdoc@googlemail.com> | 2020-06-29 20:25:32 +0200 |
| commit | 9ae208680a21fc58daa081fead548b740c64bbba (patch) | |
| tree | eb0b7264405f398b026077770c031ab72882ad99 /challenge-067/wanderdoc/R | |
| parent | 7a9f4699f4def0e55644887719dc40ef8b0a8387 (diff) | |
| download | perlweeklychallenge-club-9ae208680a21fc58daa081fead548b740c64bbba.tar.gz perlweeklychallenge-club-9ae208680a21fc58daa081fead548b740c64bbba.tar.bz2 perlweeklychallenge-club-9ae208680a21fc58daa081fead548b740c64bbba.zip | |
Solutions to challenge-067.
Diffstat (limited to 'challenge-067/wanderdoc/R')
| -rw-r--r-- | challenge-067/wanderdoc/R/ch-1.R | 7 | ||||
| -rw-r--r-- | challenge-067/wanderdoc/R/ch-2.R | 17 |
2 files changed, 24 insertions, 0 deletions
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 |