R语言list取偶数项

在R语言中，可以使用索引来取出list中的偶数项。偶数项的索引可以通过使用seq函数生成一个从2开始，步长为2的序列来实现。下面是一个示例代码：

# 创建一个包含10个元素的list
my_list <- list("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")

# 使用索引取出偶数项
even_items <- my_list[seq(2, length(my_list), by = 2)]

# 打印结果
print(even_items)

运行以上代码，将会输出list中的偶数项。请注意，R语言中的索引是从1开始的，所以我们使用seq函数生成的序列从2开始。

相关问题

用R语言编写函数实现一下功能：对于输入的一个由0和1构成且总长度为偶数的序列，输出其偶数位置上的1的个数以及奇数位置上的0的个数。

在R语言中，你可以通过定义一个函数来实现这个功能。下面是一个简单的函数`count_pattern`，它接受一个名为`sequence`的向量作为输入，并计算指定条件下的元素个数：

count_pattern <- function(sequence) {
  # 检查输入是否满足条件：长度为偶数且只包含0和1
  if (length(sequence) %% 2 != 0 || any(c(0, 1) != sequence)) {
    stop("Invalid input! Sequence must be an even-length vector of only 0s and 1s.")
  }
  
  # 计算偶数位置上1的个数和奇数位置上0的个数
  num_ones_even <- sum(sequence[seq_len(length(sequence), by = 2)])
  num_zeros_odd <- sum(sequence[seq_len(length(sequence), by = 2) - 1])
  
  list(ones_even = num_ones_even, zeros_odd = num_zeros_odd)
}

这个函数首先检查输入向量的长度和元素是否符合条件，然后分别计算偶数索引处1的数量和奇数索引处0的数量。

设计一个R语言程序（函数），求给定的两个向量array1与array2中奇数的总和，同时返回所有的偶数。

你可以设计一个名为`sum_odd_even`的R语言函数，该函数接受两个向量作为输入，分别计算奇数的总和和偶数的列表。以下是函数的具体实现：

sum_odd_even <- function(array1, array2) {
  # 创建一个向量来存储奇数总和和偶数列表
  odd_sum <- 0
  even_list <- list()

  # 对每个向量的元素进行迭代
  for (num1 in array1) {
    if (is.odd(num1)) {  # 判断元素是否为奇数
      odd_sum <- odd_sum + num1
    } else {
      even_list[[length(even_list) + 1]] <- num1  # 奇数则添加到偶数列表
    }
  }

  for (num2 in array2) {
    if (is.odd(num2)) {
      odd_sum <- odd_sum + num2
    } else {
      even_list[[length(even_list) + 1]] <- num2  # 同理处理偶数
    }
  }

  result <- list(sum_odd = odd_sum, even_numbers = even_list)
  return(result)
}

# 示例
array1 <- c(1, 4, 7, 10, 15)
array2 <- c(2, 5, 6, 8, 13)

output <- sum_odd_even(array1, array2)
print(paste0("Odd sum: ", output$sum_odd))
print("Even numbers: ", output$even_numbers)