whileループをむりやりにreduceで書き換えた(あまりお勧めしない）

while_as_reduce

# this reduce() and done() combo mimics a while loop
# coming from this tweet
# https://twitter.com/norimitsunishi1/status/1554353454360932353?s=21&t=lopKMBKt-SKQfOlrM5B_Iw
# of course this is NOT a good solution, since the input to reduce has a limited length, ...
# ... whereas the while loop will just go on forever until it breaks.

library(purrr)

f <- function(char, char2) {
  
  if (nchar(char) > 24) char <- stringr::str_sub(char, 3, 2*12)
  
  char <- paste0(stringr::str_sub(char), sample(c("ドド", "スコ"), size = 1))
  
  if (char == stringr::str_c(rep("ドドスコスコスコ", 3), collapse = "")) {
    char <- stringr::str_c(char, "ラブ注入")
    return(done(char))
  }
  
  char
}

reduce(rep("", 100000), f)
#> [1] "ドドスコスコスコドドスコスコスコドドスコスコスコラブ注入"