Tarea27/08/2021 Jimenez de Jesús Luis Fernando, Prolog

Language: Layout:

objeto:- write('{'), read(X),(X='atributo'->atributo;
                               write('')),a1,
                               write('}').
a1:- read(X),(X='atributo'->write(','),atributo,a1;
              X='fin'->write('')).
atributo:- cadena, write(':'), valor.
valor:- read(X), (X='numero'->numero;
                  X='cadena'->cadena; 
                  X='objeto'->objeto;
                  X='metodo'->metodo).
cadena:- write('"'),read(X),write(X),write('"').
numero:- read(X),write(X).
metodo:- write('"function() {'),instruccion,write('}"').
instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='decision'->decision,instruccion;
                        X='finm'->write(' return '),read(Y),write(Y),write(';');
                        X='finIf'->write('')).
decision:- write('if ('),condicion,write(')'),write('{'),instruccion,write('}'),read(X),(X='finDecision'->write('');
                                                                                      X='else'->else).
else:- write('else{'),instruccion,write('}').

condicion:- read(X),write(X).

asignacion:- numero,write('='),numero,write('; ').
:- objeto.

[ - ] Show input
Absolute running time: 0.3 sec, cpu time: 0.15 sec, memory peak: 7 Mb, absolute service time: 0,41 sec