R语言之S3系统（详细介绍）老虎机程序输出改进

S3

当初建议的老虎机程序应该以如下：

score <- function(symbols){
   
  same <- symbols[1] == symbols[2] && symbols[2] == symbols[3]
  bars <- symbols %in% c("B","BB","BBB")
  if (same){
   
    payouts <- c("DD" = 100,"7" = 80,"BBB" = 40,"BB" = 25,"B" = 10, 
                 "C"=10,"0" = 0)
    prize <- unname(payouts[symbols[1]]</