Arbol Optimizado Flores López Angel Raymundo, Prolog

Language: Layout:

objeto:- write('{'), read(X),(X='atributo'->atributo;
                               write('')),a1,
                               write('}').
arreglo:- write('['), read(X),(X='valor'->valor;
                               write('')),a2,
                               write(']').
a1:- read(X),(X='atributo'->write(','),atributo,a1;
              X='fin'->write('')).
a2:- read(X),(X='valor'->write(','),valor,a2;
              X='fin'->write('')).
atributo:- cadena, write(':'), valor.
valor:- read(X), (X='numero'->numero;
                  X='cadena'->cadena; 
                  X='objeto'->objeto;
                  X='arreglo'->arreglo;
                  X='metodo'->metodo).
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='decision'->decision,instruccion;
                        X='finsub'->write('');
                        X='finm'->write(' return '),read(Y),write(Y),write(';')).
decision:- write('if ('),numero,write(')'),verdadero.
verdadero:- write('{'),instruccion,write('}'),falso.
falso:- read(X),(X='otro'->write('else{'),instruccion,write('}');write('')).

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

atributo. jproba. objeto.
   atributo. arbol. objeto.
     atributo. narbol. cadena. empresa.
     atributo. dimension. objeto.
	atributo. nbdimension. cadena. mercado.
	atributo. valor. arreglo.
	  valor. objeto.
            atributo. nbvalor. cadena. conocimiento1.
            atributo. proba. numero. 0.2943.
            atributo. dimension. objeto.
              atributo. nbdimension. cadena. idindustria.
              atributo. valor. arreglo.
                valor. objeto.
		  atributo. nbvalor. numero. 1.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 2.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 3.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 4.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 5.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 6.
		  atributo. proba. numero. 0.052.
	        fin.
              fin.
	    fin.
	  fin.
	  valor. objeto.
            atributo. nbvalor. cadena. conocimiento2.
            atributo. proba. numero. 0.2943.
            atributo. dimension. objeto.
              atributo. nbdimension. cadena. idindustria.
              atributo. valor. arreglo.
                valor. objeto.
		  atributo. nbvalor. numero. 1.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 2.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 3.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 4.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 5.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 6.
		  atributo. proba. numero. 0.052.
	        fin.
              fin.
	    fin.
	  fin.
	  valor. objeto.
            atributo. nbvalor. cadena. disenio.
            atributo. proba. numero. 0.2943.
            atributo. dimension. objeto.
              atributo. nbdimension. cadena. idindustria.
              atributo. valor. arreglo.
                valor. objeto.
		  atributo. nbvalor. numero. 1.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 2.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 3.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 4.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 5.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 6.
		  atributo. proba. numero. 0.052.
	        fin.
              fin.
	    fin.
	  fin.
	  valor. objeto.
            atributo. nbvalor. cadena. inteligencia.
            atributo. proba. numero. 0.2943.
            atributo. dimension. objeto.
              atributo. nbdimension. cadena. idindustria.
              atributo. valor. arreglo.
                valor. objeto.
		  atributo. nbvalor. numero. 1.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 2.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 3.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 4.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 5.
		  atributo. proba. numero. 0.052.
	        fin.
		valor. objeto.
		  atributo. nbvalor. numero. 6.
		  atributo. proba. numero. 0.052.
	        fin.
              fin.
	    fin.
	  fin.
         fin.
       fin.
     fin.
   fin.
fin.

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