task 1

# Task 1
recurrent <- function(params) {
  prev <- params[1]
  curr <- params[2]
  n <- params[3]
  result <- 0

  if (n < 0) {
    return(-1)
  }

  if (n < 3) {
    return(params[n])
  }

  for (i in 3:n) {
    result <- 2 * (curr + prev)

    prev <- curr
    curr <- result
  }

  return(result)
}

tData <- c(1, 2, 20)
recurrent(tData)