카타 7급 Drying Potatoes

2 R

potatoes <- function (p0, w0, p1) {
  (w0*(100-p0)) %/% (100-p1)
}

potatoes <- function (p0, w0, p1) {
  floor(w0 * (100 - p0) / (100 - p1))
}

potatoes <- function (p0, w0, p1) {
  as.integer(w0*(100-p0)/(100-p1))
}