Recapitulação - Vetor invertido

Parte da seção Fundamentos do Journey de R da Coddy — lição 61 de 78.

Desafio

Fácil

Você receberá uma única linha de entrada contendo números separados por vírgulas (ex: 10,20,30,40,50).

Realize as seguintes operações:

Crie um vetor a partir da entrada separada por vírgulas
Inverta o vetor para que o último elemento se torne o primeiro
Imprima o vetor invertido
Imprima a soma do primeiro e do último elemento do vetor invertido

Por exemplo, se a entrada for:

5,15,25,35,45

A saída deve ser:

[1] 45 35 25 15  5
[1] 50

Explicação: O vetor original c(5, 15, 25, 35, 45) é invertido para c(45, 35, 25, 15, 5). A soma do primeiro elemento (45) e do último elemento (5) do vetor invertido é 50.

Experimente você mesmo

# Ler a entrada
con <- file("stdin", "r")
input <- suppressWarnings(readLines(con, n = 1))

# Analisar os números separados por vírgula em um vetor
numbers <- as.numeric(strsplit(input, ",")[[1]])

# TODO: Escreva seu código abaixo
# 1. Inverter o vetor
# 2. Imprimir o vetor invertido
# 3. Calcular e imprimir a soma do primeiro e do último elemento do vetor invertido