Ôn tập: vectơ đảo ngược

Thuộc phần Kiến thức nền tảng trong hành trình R của Coddy. Bài học 61 trên 78.

Thử thách

Dễ

Bạn sẽ nhận được một dòng đầu vào chứa các số được phân tách bằng dấu phẩy (ví dụ: 10,20,30,40,50).

Thực hiện các thao tác sau:

Tạo một vector từ đầu vào gồm các số được phân tách bằng dấu phẩy
Đảo ngược vector để phần tử cuối cùng trở thành phần tử đầu tiên
In ra vector đã đảo ngược
In ra tổng của phần tử đầu tiên và phần tử cuối cùng trong vector đã đảo ngược

Ví dụ, nếu đầu vào là:

5,15,25,35,45

Đầu ra sẽ là:

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

Giải thích: Vector ban đầu c(5, 15, 25, 35, 45) được đảo ngược thành c(45, 35, 25, 15, 5). Tổng của phần tử đầu tiên (45) và phần tử cuối cùng (5) trong vector đã đảo ngược là 50.

Tự làm thử

# Đọc đầu vào
con <- file("stdin", "r")
input <- suppressWarnings(readLines(con, n = 1))

# Chuyển các số phân tách bằng dấu phẩy thành một vectơ
numbers <- as.numeric(strsplit(input, ",")[[1]])

# TODO: Viết code bên dưới
# 1. Đảo ngược vectơ
# 2. In ra vectơ đã đảo ngược
# 3. Tính và in ra tổng của phần tử đầu tiên và phần tử cuối cùng trong vectơ đã đảo ngược