Tarea1 Polizona, Prolog

Tarea1 Polizona

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;
                  X='arreglo'->arreglo).
cadena:-write('"'),read(X),write(X),write('"').
numero:- read(X),write(X).
arreglo:- write('['),valor,otro.
otro:- read(X),(X='otro'->write(','),valor,otro;
                X='fin'->write(']')).
metodo:- write('"function() {'),instruccion,write('}"').
instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='condicion'->condicion,instruccion;
                        X='fin'-> write(' return '), read(Y), write(Y), write(';')).
asignacion:- numero,write('='), numero, write(';').
condicion:- read(X), (X='verdadero'->verdadero,condicion;
                      X='falso'->falso,condicion;
                      X='contenido'->contenido,condicion;
                      X='fincon'->write('}'),condicion;
                      X='fin'->write('')).
verdadero:- write('if('), read(X),write(X),write('){ ').
falso:- write('if('), read(X),write(X),write('){ ').
contenido:- read(X), write(X), write('; ').
:- objeto.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development