复习：价格向量

本课属于 Coddy R 学习旅程的“基础知识”单元。第 60 课，共 78 课。

挑战

简单

你会收到两行输入：

用逗号分隔的原价列表（例如，100,200,150,80）
一个整数形式的折扣百分比（例如，20 表示 20%）

请执行以下操作：

根据用逗号分隔的价格创建一个向量
店铺经理发现第三件商品的定价有误。将它改为 125
对所有价格应用折扣（乘以 (100 - discount) / 100）
打印折后价格向量
使用 sum() 打印所有折后价格的总和
使用 mean() 打印折后价格的平均值

例如，如果输入是：

100,200,150,80
20

输出应为：

[1]  80 160 100  64
[1] 404
[1] 101

说明：第三个价格被改为 125，然后应用 20% 的折扣（乘以 0.8），得到的价格为 80、160、100 和 64。

亲手试试

# 读取输入
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)

# 转换输入
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO：在下方编写你的代码
# 1. 将第三个元素改为 125
# 2. 对所有价格应用折扣
# 3. 打印折扣后的价格向量
# 4. 使用 sum() 打印总价
# 5. 使用 mean() 打印平均价格