Luis Fernando Jiménez De Jesús_Ejercicio2_IngenieriaDeConocimiento_Examen, Prolog

Language: Layout:

objeto:- write('{'), read(X),(X='atributo'->atributo;
                               write('')),a1,
                               write('}').

a1:- read(X),(X='atributo'->write(','),atributo,a1;
              X='finA1'->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).

metodo:- write('"function() {'),instruccion,write('}"').

instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='asignacionVOA'->asignacionVariableOperacionElementoArreglo,instruccion;
                        X='asignacionAOV'->asignacionElementoArregloOperacionVariable,instruccion;
                        X='decision'->decision,instruccion;
                        X='for'->cicloFor,instruccion;
                        X='finm'->read(J),(J='return'->return);
                        X='finIf'->write('');
                        X='break'->write('break;'),instruccion;
                        X='finFor'->write('')).
                        
decision:- write('if ('),condicion,write(')'),write('{'),instruccion,write('}'),read(X),(X='finDecision'->write('');
                                                                                         X='elseIf'->elseif;
                                                                                         X='else'->else).
else:- write(' else{'),instruccion,write('}').

elseif:- write(' else if ('),condicion,write(')'),write('{'),instruccion,write('}'),read(X),(X='finElseIf'->write('');
                                                                                            X='elseIf'->elseif;
                                                                                            X='else'->else).
                                                                                            
                                                                                            
return:- write(' return '),read(Y),write(Y),write(';').

condicion:- read(X),write(X),read(Y),(Y='and'->write(' && '),condicion;
                                      Y='or'->write(' || '),condicion;
                                      Y='finCondicion'->write('')).

asignacion:- numero,write('='),numero,write(';').

arreglo:- write('['),nuevoDatoArreglo,write(']').

nuevoDatoArreglo:- read(J),(J='valor'->valor,a2).

a2:- read(Y),(Y='valor'->write(','),valor,a2;
              Y='finArray'->write('')).
              
cicloFor:- write('for ('),forParte1,write(' in '),read(Z),write(Z),write(')'),write('{'),instruccion,write('}').

asignacionVariableOperacionElementoArreglo:- numero,write('='),numero,write('['),read(i),write(i),write(']'),a3.

asignacionElementoArregloOperacionVariable:- numero,write('['),read(i),write(i),write(']'),a4,write('='),numero.
                                                                                                                      
                                                                                                                      
  
a3:-read(K),(K='obtenerAtributo'->read(X),write('.'),write(X),a3;
             K='finA3'->write(';')).
         
a4:-read(K),(K='obtenerAtributo'->read(X),write('.'),write(X),a4;
             K='finA4'->write('')).

forParte1:- read(X),write(X).              
              
              
:- objeto.

atributo.
empresa.
numero.
65.
atributo.
mercado.
numero.
4.
atributo.
industria.
numero.
4.
atributo.
competidores.

arreglo.
valor.
objeto.
atributo.
numeroEmpresa.
numero.
35.
atributo.
liquidez.
numero.
1.2621.

finA1.

valor.
objeto.
atributo.
numeroEmpresa.
numero.
40.
atributo.
liquidez.
numero.
1.4862.

finA1.

valor.
objeto.
atributo.
numeroEmpresa.
numero.
64.
atributo.
liquidez.
numero.
1.1359.

finA1.

valor.
objeto.
atributo.
numeroEmpresa.
numero.
65.
atributo.
liquidez.
numero.
1.4900.

finA1.

valor.

objeto.
atributo.
numeroEmpresa.
numero.
116.
atributo.
liquidez.
numero.
1.4680.
finA1.

valor.
objeto.
atributo.
numeroEmpresa.
numero.
141.
atributo.
liquidez.
numero.
1.1594.

finA1.

valor.

objeto.
atributo.
numeroEmpresa.
numero.
162.
atributo.
liquidez.
numero.
1.3696.

finA1.

finArray.

atributo.
numeroCompetidores.

metodo.
asignacion.
contadorCompetidores.
0.
for.
i.
obj.competidores.
asignacionVOA.
numEmpresaAux.
obj.competidores.
i.
obtenerAtributo.
numeroEmpresa.
finA3.

decision.
obj.empresa==numEmpresaAux.
finCondicion.
finIf.

else.
asignacion.
contadorCompetidores.
contadorCompetidores + 1.
finIf.

finFor.
finm.
return.
contadorCompetidores.

atributo.
lugarDeEmpresa.
metodo.
asignacion.
aux.
0.
asignacion.
lugar.
0.
for.
i.
obj.competidores.
asignacionVOA.
aux.
obj.competidores.
i.
obtenerAtributo.
numeroEmpresa.
finA3.

decision.
obj.empresa==aux.
finCondicion.
asignacion.
lugar.
i.
break.
finIf.

finDecision.

finFor.
finm.
return.
lugar.

finA1.

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

Luis Fernando Jiménez De Jesús_Ejercicio2_IngenieriaDeConocimiento_Exa...