alternatingSums.R

# Several people are standing in a row and need to be divided into two teams. The first person goes into team 1, the second goes into team 2, the third goes into team 1 again, the fourth into team 2, and so on.
# 
# You are given an array of positive integers - the weights of the people. Return an array of two integers, where the first element is the total weight of team 1, and the second element is the total weight of team 2 after the division is complete.
# 
# Example
# 
# For a = [50, 60, 60, 45, 70], the output should be
# alternatingSums(a) = [180, 105].
# 
# Input/Output
# 
# [execution time limit] 5 seconds (r)
# 
# [input] array.integer a
# 
# Guaranteed constraints:
#   1 ≤ a.length ≤ 105,
# 45 ≤ a[i] ≤ 100.
# 
# [output] array.integer

# a = list(50, 60, 60, 45, 70)
alternatingSums <- function(a) {
  #get odd and even indices in the given data
  oddDataSum <- sum(unlist(a[c(seq(from = 1,to = length(a),by = 2))]))
  if (length(a) > 1) {
    evenDataSum <- sum(unlist(a[c(seq(from = 2,to = length(a),by = 2))]))
  } else {
    evenDataSum <- 0
  }
  return(list(oddDataSum,evenDataSum))
}