wisdom_cookie.R

wisdom_cookie <- function(seed = NULL) {
  if (! is.null(seed)) {
    set.seed(seed)
  }
  
  text <- c("Clean code always looks like it was written by someone who cares.",
            "We are all in the gutter, but some of us are looking at the stars.",
            "Don't repeat yourself!",
            "Any fool can write code that a computer can understand. Good programmers write code that humans can understand.",
            "Experience is the name everyone gives to their mistakes.",
            paste0("The good thing about a computer is that it always does what you tell it to do ",
                   "and the bad thing about a computer is that it always does what you tell it to do."),
            "If I had five minutes to chop down a tree I would spend the first two and a half minutes sharpening my axe.")
  sample(text, size = 1)
}