extractEachKth.R

# Given array of integers, remove each kth element from it.
# 
# Example
# 
# For inputArray = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] and k = 3, the output should be
# extractEachKth(inputArray, k) = [1, 2, 4, 5, 7, 8, 10].
# 
# Input/Output
# 
# [execution time limit] 5 seconds (r)
# 
# [input] array.integer inputArray
# 
# Guaranteed constraints:
#   5 ≤ inputArray.length ≤ 15,
# -20 ≤ inputArray[i] ≤ 20.
# 
# [input] integer k
# 
# Guaranteed constraints:
#   1 ≤ k ≤ 10.
# 
# [output] array.integer
# 
# inputArray without elements k - 1, 2k - 1, 3k - 1 etc.

inputArray = list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
k = 3

extractEachKth <- function(inputArray, k) {
  inputArray <- unlist(inputArray)
  if (k > length(inputArray)) {
    return(inputArray)
  }
  indicestoremove = seq(from = k, to = length(inputArray), by = k)
  return(inputArray[!(seq(1:length(inputArray)) %in% indicestoremove)])
}