30-08-2021-desiciones, Prolog

30-08-2021-desiciones

%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

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='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.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development