5 lines
123 B
R
5 lines
123 B
R
|
fib2 <- function(n) {
|
||
|
|
(n >= 0) || stop("bad argument")
|
||
|
|
( function(n) if (n <= 1) 1 else Recall(n-1)+Recall(n-2) )(n)
|
||
|
|
}
|