図書館レポート

CoddyのRジャーニー「オブジェクト指向プログラミング」セクションの一部。レッスン 54/57。

チャレンジ

中級

report_lines()メソッドを通じてREPORTコマンドを追加してください。前の手順のすべてのコマンドが、これまでどおり正確に動作し続けるようにしてください。

REPORT：books: 3, borrowed: 1と返答し、その後にメンバーごとにアルファベット順で1行ずつ出力します。借りた順序のタイトルを含むada: Dune, Emma、またはbo: noneの形式です。

提供されたコードは、すべての入力行をlib$handle(line)に送り、返された各応答をそれぞれ1行に出力します。メンバー名は小文字のみの1語で、書籍IDは整数です。入力には、これまでに説明したコマンドだけが含まれます。それ以外のコマンドにはunknown commandと返答します。

コードはBook.R、Member.R、Library.Rに記述します。main.Rには提供された入出力コードが含まれており、編集できません。

自分で試してみよう

source("Book.R")
source("Member.R")
source("Library.R")

# 提供された入出力コード: そのままにしておく
input <- suppressWarnings(readLines(file("stdin")))
lib <- Library$new()
for (line in input) {
  for (reply in lib$handle(line)) cat(reply, "\n", sep = "")
}