요약 - 가격 벡터
Coddy R 여정의 기초 섹션에 포함된 레슨 — 78개 중 60번째.
챌린지
쉬움두 줄의 입력을 받게 됩니다:
- 쉼표로 구분된 원래 가격 목록 (예:
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()을 사용하여 평균 출력