decisiones anidadas 30 agosto, Prolog

Language: Layout:

objeto:- write('{'), read(X),(X='atributo'->atributo,a1;
                      write('')), 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='metodo'->metodo; 
                  X='objeto'->objeto).
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='fins'->write('');
                       X='finm'->write(' return '),read(Y),write(Y),write(';}')). 
asignacion:- read(X),write(X),write('='),read(Y),write(Y),write(';').
decision:- write('if ('),read(X),write(X),write(')'),
           write('{'),instruccion,write('}'),
           write('else {'),instruccion,write('}').

:- objeto.

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