Actividad 02-03-2021 tarea, Prolog

Language: Layout:

objeto:- write('{'),read(X), (X='atributo'->atributo; write('')),write('}').
a1:- read(X),(X='atributo'-> write(','),atributo;X='nElemento'-> write(', '),elemento;(X='fin'->write(''))).
atributo:- read(X), write('"'), write(X), write('":'),tipoatributo(X),a1. 
tipoatributo(M):- read(X), (X='metodo'->metodo(M);(X='numero'->numero;X='cadena'->cadena; X='arreglo'->arreglo; X='aI'->atributo; X='objArreglo'->objeto);(X='objeto'->objeto; write('errorTipoatributo'))).
cadena:- read(X), write('"'), write(X), write('"').
numero:- read(X), write(X).
arreglo:- write('['), elemento, write(']').
elemento:- tipoatributo(_S),a1.
objArreglo:- read(_X).
metodo(M):- write('"function() {'),a2,write(' return '), write(M), write(';}"').
a2:- read(X), (X='decision'->decision;a3(X)).
a3(X):- X='asignacion' -> asignacion;(a4(X)).
a4(X):- X='fin' -> write('');(write('ERROR: '),write(X)).
asignacion:- read(X), write(X), write('='), read(Y), write(Y), write(';'),a2.
decision:- write('if('),condicion,write(')'), verdadero, write('}'),falso,write('}').
condicion:-read(X), write(X).
verdadero:- write('{'),a2.
falso:- write('else {'),a2.
:-objeto.

atributo.
productivas.
    arreglo.
	    objArreglo.
		    atributo.
		    almacen.
                       objeto.
                       atributo.
                        indicadores.
                            objeto.
                              atributo.
                              max.
                               numero.
                               90.
                              atributo.
                              min.
                               numero.
                               20.
                              atributo.
                              deseado.
                               numero.
                               45.
                              atributo.
                              actual1.
                                 metodo.
fin.
fin.
atributo.
inventario.
arreglo.
  objArreglo.
        atributo.
        embarque.
           objeto.
           atributo.
             cantidad.
                 numero.
                     20.
           atributo.
             costounitario.
                 numero.
                     10.    
fin.                          
fin.
   nElemento. 
   objeto.
   atributo.
   embarque.
      objeto.
          atributo.
             cantidad.
                 numero.
             27.
        atributo.
             costounitario.
                 numero.
                     1.
fin.
fin.
fin.
fin.
fin.
nElemento.
objeto.
atributo.
almacen.
objeto.
atributo.
indicadores.
  objeto.
    atributo.
      max.
       numero.
         100.
atributo.
      min.
       numero.
         25.
atributo.
      deseado.
       numero.
         60.
atributo.
      actual2.
        metodo.         
fin.
fin.
atributo.
inventario.
 arreglo.
 objeto.
  atributo.
   embarque.
objeto.
atributo.
      cantidad.
       numero.
         25.
atributo.
      costounitario.
       numero.
         4.
fin.
fin.
nElemento.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
37.
atributo.
costounitario.
numero.
2.
fin.
fin.
fin.
fin.
fin.
fin.
atributo.
financiera.
objeto.
atributo.
balance.
objeto.
atributo.
activo.
objeto.
atributo.
bancos.
numero.
2085.
atributo.
insumo1.
metodo.
fin.
atributo.
insumo2.
metodo.
fin.
atributo.
en_proceso.
numero.
1038.
atributo.
infraestructura.
numero.
18973.
atributo.
mercancias.
numero.
2064.
atributo.
clientes.
numero.
2888.
fin.
atributo.
pasivo.
objeto.
atributo.
proveedores.
numero.
2721.
atributo.
hipotecas.
numero.
12884.
fin.
atributo.
capital.
objeto.
atributo.
capital_social.
numero.
6135.
atributo.
utilidad.
metodo.
fin.
fin.
fin.
fin.
fin.
fin.
fin.

[ - ] Show input
Tiempo de ejecución absoluto: 0,33 segundos, tiempo de CPU: 0,18 segundos, pico de memoria: 7 Mb, tiempo de servicio absoluto: 0,36 segundos