R码中fibonacci序列的替换长度为零

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

# 生成Fibonacci序列的前10个数字
fib_sequence <- sapply(0:9, fibonacci)
print(fib_sequence)

fibonacci_replace_zero <- function(n) {
  if (n <= 0) {
    return(0)
  } else if (n == 1) {
    return(1)
  } else {
    # 将序列中的偶数位置元素替换为零
    if (n %% 2 == 0) {
      return(0)
    } else {
      return(fibonacci_replace_zero(n-1) + fibonacci_replace_zero(n-2))
    }
  }
}

# 生成替换部分元素为零的Fibonacci序列的前10个数字
fib_sequence_replace_zero <- sapply(0:9, fibonacci_replace_zero)
print(fib_sequence_replace_zero)