R/brute.R

In nathaneastwood/brute: Brute Force the Printing of Hello World

#' Brute force hello world
#'
#' This function provides a method to print the string \code{Hello, World} using
#' brute force.
#'
#' @examples
#' brute()
#'
#' @export
brute <- function() {
  target <- c("H", "e", "l", "l", "o", ",", " ", "W", "o", "r", "l", "d")
  tar_len <- length(target)
  string <- rep("", tar_len)

  i <- 1

  while (i < tar_len + 1) {
    string[i] <- rawToChar(as.raw(sample(32:126, 1)))

    if (string[i] == target[i]) {
      i <- i + 1
    }
    cat(string, "\n", sep = "")
    Sys.sleep(0.01)
  }
}