復習 - 成績分類器

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 51/64。

チャレンジ

中級

grade_report(names, scores)を完成させてください。ifelse()を使って各生徒に成績を付けます。90点以上はA、75点以上はB、50点以上はC、50点未満はFです。生徒1人につき1行を返します（例：ada: 93 (A) Excellent）。コメントは成績に対するswitch()から取得し、AにはExcellent、BにはGood、CにはPass、FにはRetakeを使用します。

次にTop: に続けて、最高得点の生徒を入力順に並べ、, で結合して追加します。

用意されているコードは、名前と得点をカンマ区切りの2行として読み込み、返された各行を出力します。

自分で試してみよう

grade_report <- function(names, scores) {
  # ここにコードを書いてください
  character(0)
}

# 提供された入力/出力コード：そのままにしておいてください
input <- suppressWarnings(readLines(file("stdin")))
cat(grade_report(strsplit(input[1], ",")[[1]], as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")