data-raw/medium/while2.R

params <- 17:24
while(n > 0) {
  m <- n 
  while(m > 1) {
    m <- m %/% 3
    cat(m, '')
  }
  n <- n %/% 2;
}
arnaud-m/XLUniv documentation built on Jan. 23, 2023, 4:23 p.m.