Corona Lucas Elimm - Examen parte 3, Prolog

Corona Lucas Elimm - Examen parte 3

%commands to the interpreter are submitted from stdin input ('show input' box below)
%'halt.' will be automatically appended to stdin input.
%swi-prolog 7.6.4

progra:- write('{') ,read(X), (X='atributo' -> pvalor, write('}');
                                               write('}')).                                               
pvalor:- read(X), (X='cadena' -> cadena,write(':'),cadena,valor; 
                    X='numero' -> cadena,write(':'),numero,valor; 
                    X='objeto' -> cadena,write(':'),progra,valor; 
                    X='array' -> cadena,write(':'),array,valor;
                    X='metodo' -> cadena,write(':'),metodo,valor;
                    X='' -> write('')).
valor:- read(X), (X='cadena' -> write(','),cadena,write(':'),cadena,valor; 
                    X='numero' -> write(','),cadena,write(':'),numero,valor; 
                    X='objeto' -> write(','),cadena,write(':'),progra,valor;
                     X='array' -> write(','),cadena,write(':'),array,valor;
                     X='metodo' -> write(','),cadena,write(':'),metodo,valor;
                    X='' -> write('')).
cadena:- read(X), write('"'),write(X),write('"').
numero:- read(X), write(X).
array:- write('['),parray,write(']').
parray:- read(X), (X='cadena' -> cadena,varray; 
                    X='numero' -> numero,varray; 
                    X='objeto' -> progra,varray; 
                    X='array' -> array,varray;
                    X='' -> write('')).
varray:- read(X), (X='cadena' -> write(','),cadena,varray; 
                    X='numero' -> write(','),numero,varray; 
                    X='objeto' -> write(','),progra,varray;
                     X='array' -> write(','),array,varray;
                    X='' -> write('')).
metodo:- write('"function() {'),instruccion,write('}"').
instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='decision'->decision,instruccion;
                        X=''->write('');
                        X='fin'->write(' return '),read(Y),write(Y),write(';')).
asignacion:- numero,write('='),numero,write('; ').                     
decision:- write('if ('),numero,write(')'), write('{'),instruccion,write('}'),write('else{'),instruccion,write('}').
:- progra.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development