inline-r-0.7.0.0: tests/R/fib.R

fib <- function(n) {
    if(n == 0) return(1)
    if(n == 1) return(1)
    return(fib(n - 1) + fib(n - 2))
}