“Happy New Year 2022″를 출력하는 재밌는 코드입니다.
코드를 실행해 보세요.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
seeds <- c(2219868, 10641, 443238, 9487) word_lengths <- c(5, 3, 4, 4) choices <- list(letters, letters, letters, 0:9) magic_message <- function(seed, word_length, choices) { set.seed(seed) sample(choices, size = word_length, replace = TRUE) |> paste(collapse = "") |> stringr::str_to_title() } purrr::pmap_chr(list(seeds, word_lengths, choices), magic_message) |> cat() |