# istruzioni da inserire nello script dell'equazione
# di secondo grado (si salvi la versione precedente con altro nomi)
# per poter dare i parametri della retta da terminale
# dopo aver lanciato lo script con source()
#
# (sulle funzioni e oggetti misteriosi ci ritorneremo a lezione)
#
# Nota: i vari print() sono di 'debug' e andranno poi rimossi
#       (insomma servono a far capire cosa sta succedendo)

linea <- readline(prompt="da a, b, c separati da virgola \n")

cat(sprintf("\n"))
print(linea)  

par <-  as.numeric( unlist( strsplit(linea, ',') ) )

print(par)

# provare anche a NON DARE uno o più valore,
# ovvero semplicemente uno spazio