在R中以斐波那契数列打印用户给定值

fibonacci <- function(n) {
  if (n <= 0) {
    stop("请输入一个大于0的整数")
  } else if (n == 1) {
    return(0)
  } else if (n == 2) {
    return(1)
  } else {
    return(fibonacci(n-1) + fibonacci(n-2))
  }
}

user_input <- as.integer(readline("请输入一个大于0的整数："))
result <- sapply(1:user_input, fibonacci)
print(result)

fibonacci <- function(n) {
  if (n <= 0) {
    stop("请输入一个大于0的整数")
  } else if (n == 1) {
    return(0)
  } else if (n == 2) {
    return(1)
  } else {
    a <- 0
    b <- 1
    result <- c(a, b)
    for (i in 3:n) {
      c <- a + b
      result <- c(result, c)
      a <- b
      b <- c
    }
    return(result)
  }
}

user_input <- as.integer(readline("请输入一个大于0的整数："))
result <- fibonacci(user_input)
print(result)