Tarea clasificador con if anidado, calculo de isan, 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).
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='finm'->read(J),(J='return'->return);
                        X='finIf'->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('; ').
:- objeto.

atributo.
precioAutomovil.
numero.
9.

atributo.
limiteInferior.
numero.
0.

atributo.
diferencia.
numero.
0.

atributo.
tasa.
numero.
0.

atributo.
impuestoMarginal.
numero.
0.

atributo.
cuotaFija.
numero.
0.

atributo.
isanCalculado.
numero.
0.

atributo.
calculoIsan.
metodo.

decision.
obj.precioAutomovil>=0.01.
and.
obj.precioAutomovil<294797.45.
finCondicion.

asignacion.
obj.limiteInferior.
0.01.

asignacion.
obj.diferencia.
obj.precioAutomovil-obj.limiteInferior.

asignacion.
obj.tasa.
0.02.

asignacion.
obj.impuestoMarginal.
obj.diferencia*obj.tasa.

asignacion.
obj.cuotaFija.
0.

asignacion.
obj.isanCalculado.
obj.impuestoMarginal + obj.cuotaFija.

finIf.

elseIf.
obj.precioAutomovil>=294797.45.
and.
obj.precioAutomovil<353756.88.
finCondicion.

asignacion.
obj.limiteInferior.
294797.45.

asignacion.
obj.diferencia.
obj.precioAutomovil-obj.limiteInferior.

asignacion.
obj.tasa.
0.05.

asignacion.
obj.impuestoMarginal.
obj.diferencia*obj.tasa.

asignacion.
obj.cuotaFija.
5895.85.

asignacion.
obj.isanCalculado.
obj.impuestoMarginal + obj.cuotaFija.

finIf.

elseIf.
obj.precioAutomovil>=353756.88.
and.
obj.precioAutomovil<412716.53.
finCondicion.

asignacion.
obj.limiteInferior.
353756.88.

asignacion.
obj.diferencia.
obj.precioAutomovil-obj.limiteInferior.

asignacion.
obj.tasa.
0.1.

asignacion.
obj.impuestoMarginal.
obj.diferencia*obj.tasa.

asignacion.
obj.cuotaFija.
8843.96.

asignacion.
obj.isanCalculado.
obj.impuestoMarginal + obj.cuotaFija.

finIf.

elseIf.
obj.precioAutomovil>=412716.53.
and.
obj.precioAutomovil<530635.17.
finCondicion.

asignacion.
obj.limiteInferior.
412716.53.

asignacion.
obj.diferencia.
obj.precioAutomovil-obj.limiteInferior.

asignacion.
obj.tasa.
0.15.

asignacion.
obj.impuestoMarginal.
obj.diferencia*obj.tasa.

asignacion.
obj.cuotaFija.
14739.89.

asignacion.
obj.isanCalculado.
obj.impuestoMarginal + obj.cuotaFija.

finIf.

elseIf.
obj.precioAutomovil>530635.17.
finCondicion.

asignacion.
obj.limiteInferior.
530635.17.

asignacion.
obj.diferencia.
obj.precioAutomovil-obj.limiteInferior.

asignacion.
obj.tasa.
0.17.

asignacion.
obj.impuestoMarginal.
obj.diferencia*obj.tasa.

asignacion.
obj.cuotaFija.
32427.66.

asignacion.
obj.isanCalculado.
obj.impuestoMarginal + obj.cuotaFija.

finIf.

else.
asignacion.
obj.isanCalculado.
-10.

finIf.

finm.
return.
obj.isanCalculado.

finA1.

[ - ] Show input
Absolute running time: 0.3 sec, cpu time: 0.17 sec, memory peak: 7 Mb, absolute service time: 0,37 sec