Luis Fernando Jiménez De Jesús Ejercicio1 -- examen Ing.Conocimiento, Prolog

Luis Fernando Jiménez De Jesús Ejercicio1 -- examen Ing.Conocimiento

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


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development