tri_recursion <- function(k) {

  if (k > 0) {

    result <- k + tri_recursion(k - 1)

    print(result)

  } else {

    result = 0

    return(result)

  }

}

tri_recursion(6)

​