Riepilogo - Parcometro

Fa parte della sezione Programmazione orientata agli oggetti del percorso R di Coddy. Lezione 21 di 57.

Sfida

Medio

Completa la fabbrica make_meter(rate) in Meter.R. rate è il numero di minuti che si ottengono con un centesimo; bloccalo con lockBinding() all'interno della fabbrica, così non potrà mai cambiare. Il parchimetro tiene traccia dei minuti rimasti e dei centesimi pagati come variabili private e restituisce quattro funzioni:

insert(cents) accetta solo 10, 20, 50 o 100 e altrimenti si interrompe con coin not accepted; ogni moneta aggiunge cents * rate minuti e contribuisce all'importo pagato.
wait(minutes) fa passare il tempo: i minuti rimasti diminuiscono, ma non scendono mai sotto 0. Un'attesa negativa si interrompe con time cannot go back.
status() restituisce 12 min left, oppure expired quando non rimane tempo.
paid() restituisce i centesimi pagati.

Usa call. = FALSE. Il codice fornito legge la tariffa, poi le righe coin 20 o wait 5 e stampa lo stato oppure error: e il messaggio dopo ciascuna riga. Infine stampa l'importo pagato e prova a modificare rate nell'ambiente della fabbrica.

Il tuo codice va in Meter.R. main.R contiene il codice fornito per input e output e non può essere modificato.

Provalo tu

source("Meter.R")

# Supplied input/output code: keep it as it is
input <- suppressWarnings(readLines(file("stdin")))
meter <- make_meter(as.numeric(input[1]))
for (line in input[-1]) {
  p <- strsplit(line, " ")[[1]]
  msg <- tryCatch({
    if (p[1] == "coin") meter$insert(as.numeric(p[2]))
    if (p[1] == "wait") meter$wait(as.numeric(p[2]))
    meter$status()
  }, error = function(e) paste("error:", conditionMessage(e)))
  cat(line, ": ", msg, "\n", sep = "")
}
cat("paid: ", meter$paid(), " cents\n", sep = "")
r <- tryCatch({ environment(meter$insert)$rate <- 0; "rate changed" }, error = function(e) "rate is locked")
cat(r, "\n", sep = "")