data-raw/hard/func1.R

params <- 30:40
f <- function(n) {
  cat(n, '')
  if(n > 0) {
    if(n %% 2 == 0) return(f(n %/% 2))
    else return(f(n %/% 3))
  }
}
f(n)
arnaud-m/XLUniv documentation built on Jan. 23, 2023, 4:23 p.m.