Devolución de libros

Parte de la sección Programación orientada a objetos del Journey de R de Coddy. Lección 52 de 57.

Desafío

Fácil

Añade el comando RETURN mediante el método return_book(name, id). Mantén todos los comandos de los pasos anteriores funcionando exactamente como antes.

RETURN <name> <id>: responde no member bo o no book 9 como al pedir prestado; si el miembro no tiene ese libro, responde ada does not have Dune; de lo contrario, elimina el id de los préstamos del miembro, haz que el libro esté disponible (borrower se convierte en character(0)) y responde ada returned Dune.

El código proporcionado envía cada línea de entrada a lib$handle(line) e imprime cada respuesta devuelta en su propia línea. Los nombres de los miembros son palabras individuales en minúsculas, los ids de los libros son números enteros y la entrada contiene únicamente los comandos descritos hasta ahora. Cualquier otro comando responde unknown command.

Tu código va en Book.R, Member.R y Library.R. main.R contiene el código proporcionado de entrada/salida y no se puede editar.

Pruébalo tú mismo

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

# Código de entrada/salida suministrado: déjalo como está
input <- suppressWarnings(readLines(file("stdin")))
lib <- Library$new()
for (line in input) {
  for (reply in lib$handle(line)) cat(reply, "\n", sep = "")
}