Rock Paper Scissors Lizard Spock

rpsls

play <- function(){
  possibilities <- c("rock", "Spock", "paper", "lizard", "scissors")
  cat(possibilities, sep="\n")
  cat("\n")
  x <- readline("What is your choice? ")
  if(x %in% possibilities == FALSE) {cat("FOOL! That is not one of the options")
                                     x<- readline("Try Again: ")
                                     }
  y <- sample(possibilities, 1)
  z <- which(possibilities==x)-which(possibilities==y)
  if(x==y) {outcome <- "Draw"
                              }else{
                                    outcome <- ifelse(z%%5==3|z%%5==2, "Win", "Lose")
                                    }
  cat("You choose", x,"\nComputer choose", y, "\nYou ",outcome, "\n")
}

rpsls <- function(){
  again <- "yes"
  outcomes <-c()
  while (again=="yes"){
    play()
    again <- readline("Play again?")
  }
}
  
rpsls()