KarymeRG-ProbabilidadesArbolPolizona, Prolog

Language: Layout:

%ROMERO GALVEZ KARYME
%INGENIERÍA DEL CONOCIMIENTO
%3NM71
%RED BAYESIANA - INTELIGENCIA DE NEGOCIOS

objeto:- write('{'), read(X),(X='atributo'->atributo;
                              X='arreglo'->arreglo;
                               write('')),a1,write('}').
arreglo:- write('['), read(X),(X='valor'->valor;
                               write('')),a1,
                               write(']').
a1:- read(X),(X='atributo'->write(','),atributo,a1;
              X='valor'->write(','),valor,a1;
              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;
                  X='atributo'->atributo;
                  X='fin'->write('')).
cadena:- write('"'),read(X),write(X),write('"').
numero:- read(X),write(X).
asignacion:- numero,write('='),numero,write('; ').
metodo:- write('"function() {'),instruccion,write('}"').

asignacionmas:- numero,write('+=+'),posicioni,write('}').
posicioni:- read(X),(X='indice'->numero,write('['), read(Y), write(Y),write(']'),posicioni;
                            X='solo'->numero,posicioni;
                            X='otrap'->write('.'),posicioni;
                            X='fin'->write('')).

instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='asignacionmas'->asignacionmas,instruccion;
                        X='decision'->decision,instruccion;
                        X='finsub'->write('');
                        X='ciclofor'->ciclofor;
                        X='valor'->valor, write('finnnn');
                        X='finm'->write(' return '),read(Y),write(Y),write(';')).
decision:- write('if ('),numero,write(')'),verdadero,read(F),(F='falso'->falso).
verdadero:- write('{'),instruccion,write('}').
finelse:- write('{').
falso:- write('else '),read(X),(X='ultimoelse'->write('{'),instruccion,write('}');
                                X='decision'->decision).

ciclofor:- write('for ('),iteracion,write('){'),instruccion.
iteracion:- valor,read(Y),(Y='mastexto'->write(' '),iteracion; 
                           Y='fin'->write('')).
:- objeto.

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