年賀はがきお年玉チェッカー.R

otoshidama <- function(x) {
  rank <- c("一等？", "二等？", "三等！", "三等！", "外れ")
  tosen <- c(97085, 2344, 72, 74)
  result <- NULL
  for (i in x) {
     tmp <- grep(sprintf(".*%s$", i), tosen)
     tmp <- ifelse(length(tmp) == 0, 5, tmp)
  　 result <- c(result, tmp)
  }
  cat("当選番号:", tosen, fill=TRUE)
  cat(rank[result], sep="\n")
}

# 下二桁を入力
otoshidama(c(72, 11, 85, 35, 44))