data-raw/hard/while1.R

params <- 10:15
m <- (2*n) %/% 3
while(n > 0 || m > 0) {
  cat(n, '') 
  if(n < m) {
    m <- m %/% 2
  } else {
    n <- n %/% 2;
  }
}
arnaud-m/XLUniv documentation built on Jan. 23, 2023, 4:23 p.m.