Estructura de Datos - Empresa, Prolog

Language: Layout:

%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('{'),aux1,write('}').
atributo :- cadena,write(':'),valor,aux2.
cadena :- read(X),write('"'),write(X),write('"').
numero :- read(N),write(N).
arreglo :- write('['),aux3,write(']').
metodo :- write('"function() {'),instruccion,write('return isan}"').
instruccion :- read(I),(I='asignacion'->asignacion,instruccion;
                 I='decision'->decision,instruccion;
                 I='fin'->write('')).                 
asignacion :- read(X),write(X),write('='),read(Y),write(Y),write(';').                 
decision :- write('if ('),read(C),write(C),write(') {'),instruccion,write('}').
aux1 :- read(X),(X='atributo'->atributo;
                 X='fin'->write('')). 
aux2 :- read(X),(X='atributo'->write(','),atributo;
                 X='fin'->write('')). 
aux3 :- read(X),(X='valor'->valor,aux4;
                 X='fin'->write('')).
aux4 :- read(X),(X='valor'->write(','),valor,aux4;
                 X='fin'->write('')).  
valor :-read(Y),(Y='cadena'->cadena;
                 Y='numero'->numero;
                 Y='objeto'->objeto;
                 Y='arreglo'->arreglo;
                 Y='metodo'->metodo).
                 
:- objeto.

atributo.
empresa.
objeto.
atributo.
nbempresa.
cadena.
luis_alberto.
atributo.
industria.
numero.
2.
atributo.
tecnicas.
objeto.
atributo.
insumoA.
arreglo.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
45.
atributo.
precio.
numero.
1234.21.
fin.
fin.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
15.
atributo.
precio.
numero.
634.21.
fin.
fin.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
55.
atributo.
precio.
numero.
2234.21.
fin.
fin.
fin.
atributo.
insumoB.
arreglo.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
26.
atributo.
precio.
numero.
1001.21.
fin.
fin.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
22.
atributo.
precio.
numero.
931.21.
fin.
fin.
fin.
atributo.
mercancias.
objeto.
atributo.
cantidad.
numero.
104.
fin.
atributo.
bancos.
objeto.
atributo.
saldo.
numero.
10458.
fin.
fin.
atributo.
financieras.
objeto.
atributo.
activo.
objeto.
atributo.
infraestructura.
numero.
21412.12.
atributo.
bancos.
numero.
142112.
atributo.
insumoA.
numero.
29283.
atributo.
insumoB.
numero.
65832.
atributo.
enproceso.
numero.
8212.
atributo.
mercancias.
numero.
82178.
atributo.
clientes.
numero.
18232.
fin.
atributo.
pasivo.
objeto.
atributo.
hipotecas.
numero.
9123.
atributo.
proveedores.
numero.
346323.
fin.
atributo.
capital.
objeto.
atributo.
capitalsocial.
numero.
721821.
atributo.
utilidades.
numero.
921232.
fin.
fin.
fin.
fin.

[ - ] Show input
Absolute running time: 0.31 sec, cpu time: 0.17 sec, memory peak: 7 Mb, absolute service time: 0,45 sec