카타 7급 Deodorant Evaporator

2 R

evaporator <- function(content, evap_per_day, threshold) {
  ceiling(log(threshold / 100.0) / log(1.0 - evap_per_day / 100.0))
}

evaporator <- function(content, evap_per_day, threshold) {
  ratio <- 100
  day <- 0
  while( ratio > threshold ) {
    ratio <- ratio * (100 - evap_per_day) / 100
    day <- day + 1
  }
  day
}