R中的Fibonacci数列

fibonacci_recursive <- function(n) {
  if (n <= 1) {
    return(n)
  } else {
    return(fibonacci_recursive(n-1) + fibonacci_recursive(n-2))
  }
}

# 示例调用
n <- 10
result <- fibonacci_recursive(n)
print(result)

fibonacci_iterative <- function(n) {
  fib <- c(0, 1)
  for (i in 3:n) {
    next <- fib[i-1] + fib[i-2]
    fib <- c(fib, next)
  }
  return(fib)
}

# 示例调用
n <- 10
result <- fibonacci_iterative(n)
print(result)