14 de febrero, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').
atributo :- cadena,write(':'),valor.
aux1 :- read(X), (X='atributo'->atributo,aux2; 
                  X='fin'->write('')).
                  
aux2 :- read(X), (X='atributo'->write(', '),atributo,aux2; 
                  X='fin'->write('')).
                  
aux4 :- read(X), (X='valor'->write(', '),valor,aux4; 
                  X='fin'->write('')).
                  
aux3 :- read(X), (X='valor'->valor,aux4; 
                  X='fin'->write('')).                  
                  
valor :- read(X),  (X='numero'->numero; 
                    X='cadena'->cadena;
                    X='objeto'->objeto;
                    X='metodo'->metodo;
                    X='arreglo'->arreglo;write(error),write(X)).

numero :- read(X),write(X).
cadena :- read(X),write('"'),write(X),write('"').
arreglo :- write('['),aux3,write(']').
metodo :- write('"funtion() {'),instruccion,write('}"').
instruccion :- read(I),  (I='asignacion'->asignacion,instruccion;
                          I='decision'->decision,instruccion;
                          I='fin'->write('')).
asignacion :- numero,write('='),numero,write(';').
decision :- write('if ('),condicion,write('){'),instruccion,write('}').
condicion :- numero.
:- objeto.

[ - ] Show input
Absolute running time: 0.33 sec, cpu time: 0.18 sec, memory peak: 7 Mb, absolute service time: 0,42 sec