playing_cards.R

setup <- function() {
  
  face = c("king", "queen", "jack", "ten", "nine", "eight", "seven", "six",
           "five", "four", "three", "two", "ace")
  suit = c("spades","clubs","hearts","diamonds")
  value = 13:1
  
  DECK <- data.frame( face = rep(face, length(suit)) ,
                      suit = rep(suit,   each = length(face)),
                      value = value)
  
  DEAL <- function() {
    card <- deck[1, ]
    assign("deck", deck[-1, ], envir = parent.env(environment()))
    card
  }
  
  SHUFFLE <- function(){
    random <- sample(1:52, size = 52)
    assign("deck", DECK[random, ], envir = parent.env(environment()))
  }
  
  list(deal = DEAL, shuffle = SHUFFLE)
}


cards <- setup()

shuffle <- cards$shuffle
deal <- cards$deal

shuffle()
deal()