inicio codificacion mercado 3 marzo 2022, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').
aux1 :- read(X),(X='atributo'->atributo;
                 X='fin'->write('')).
atributo :- read(X),write('"'),write(X),write('"'), write(':'),valoratributo(X),aux2.
arreglo :- write('['),aux3, write(']').
aux2 :- read(X),(X='atributo'->write(','),atributo;
                 X='fin'->write('')).
aux3 :- read(X),(X='valor'->valorarreglo,aux4;
                 X='fin'->write('')).
aux4 :- read(X),(X='valor'->write(','),valorarreglo,aux4;
                 X='fin'->write('')).
cadena :- read(X),write('"'),write(X),write('"').
numero :- read(X),write(X).
valoratributo(M) :-read(T),(T='cadena'->cadena;
                 T='numero'->numero;
                 T='arreglo'->arreglo;
                 T='metodo'->metodo(M);
                 T='objeto'->objeto).

valorarreglo :-read(T),(T='cadena'->cadena;
                 T='numero'->numero;
                 T='arreglo'->arreglo;
                 T='objeto'->objeto).
metodo(M) :- write('"function() {'),instruccion,write('return '),write(M),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('}'),aux5.
aux5 :- read(I),(I='sino'->falso;
                 I='fin'->write('')).
falso :- write('else {'), instruccion, write('}').
condicion :- numero.
:- objeto.

atributo.
simulador.
arreglo.
valor.
objeto.
atributo.
abono.
objeto.
atributo.
idempresa.
numero.
5.
atributo.
idasiento.
numero.
3.
atributo.
idabono.
numero.
5.
atributo.
idcuenta.
numero.
5.
atributo.
monto.
numero.
5.
fin.
fin.

valor.
objeto.
atributo.
asiento.
objeto.
atributo.
idempresa.
numero.
97.
atributo.
idasiento.
numero.
97.
atributo.
fecasiento.
cadena.
2021-06-09.
atributo.
idoperacion.
numero.
97.
atributo.
monto.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
cargo.
objeto.
atributo.
idempresa.
numero.
97.
atributo.
idasiento.
numero.
97.
atributo.
idcargo.
numero.
97.
atributo.
idcuenta.
numero.
97.
atributo.
monto.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
cuenta.
objeto.
atributo.
idcuenta.
numero.
97.
atributo.
nbcuenta.
cadena.
hola.
atributo.
idrubro.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
embarque.
objeto.
atributo.
idempresa.
numero.
97.
atributo.
idalmacen.
numero.
97.
atributo.
idembarque.
numero.
97.
atributo.
cantidad.
numero.
97.
atributo.
precio_total.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
empresa.
objeto.
atributo.
idempresa.
numero.
97.
atributo.
idindustria.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
encadenamineto.
objeto.
atributo.
idindustriacompra.
numero.
97.
atributo.
idindustriavende.
numero.
97.
atributo.
coeficiente.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
industria.
objeto.
atributo.
idindustria.
numero.
97.
atributo.
nbindustria.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
mercancia.
objeto.
atributo.
idempresa.
numero.
97.
atributo.
idorden.
numero.
97.
atributo.
cantidad.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
operacion.
objeto.
atributo.
idoperacion.
numero.
97.
atributo.
operacion.
numero.
97.
fin.
fin.

valor.
objeto.
atributo.
rubro.
objeto.
atributo.
idrubro.
numero.
97.
atributo.
nbrubro.
cadena.
wenas.
fin.
fin.

valor.
objeto.
atributo.
simembarques.
objeto.
atributo.
idembarque.
numero.
97.
atributo.
industria.
cadena.
cadena1.
atributo.
mercado.
cadena.
cadena2.
atributo.
empresa.
numero.
97.
atributo.
idinsumo.
numero.
97.
atributo.
unidades.
numero.
97.
atributo.
costo.
numero.
97.
atributo.
moneda.
numero.
97.
atributo.
unitario.
numero.
97.
atributo.
total.
numero.
97.
fin.
fin.

fin.
fin.

[ - ] Show input
Absolute running time: 0.46 sec, cpu time: 0.26 sec, memory peak: 7 Mb, absolute service time: 0,6 sec