카타 7급 Number of Divisions

R

divisions <- function(n, divisor){
  floor(log(n,divisor))
}

divisions <- function(n, divisor){
  cnt=0
  while(n>=divisor){
   n=n%/%divisor
    cnt=cnt+1
  } 
  return(cnt)
}