카타 7급 A Rule of Divisibility by 7

R

seven <- function(m) {
  step = 0
  while( m > 99 ) {
    step = step + 1
    m = m %/% 10 - ( 2 * m %% 10 )
  }
  c(m, step)
}