2 - codificador JSON If anidados y else ISAN sumas, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').

atributo :-cadena, write(':'),valor,aux2.

aux1 :- read(X),(X='atributo'->atributo;
                X='fin'->write('')).
                
aux2 :- read(X),(X='atributo'->write(','),atributo;
                 X='fin'->write('')).

aux3 :- read(X),(X='valor'->valor,aux4;
                 X='fin'->write('')).

aux4 :- read(X),(X='valor'->write(','),valor,aux4;
                 X='fin'->write('')).  
                 
aux5 :- read(X), (X='return' -> return;
                    X='fin'->write('')).              
                 
cadena :- read(X),write('"'),write(X),write('"').

numero :- read(X),write(X).

booleano :- read(X),write(X).

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

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

instruccion :- read(X),(X='asignacion'->asignacion,instruccion;
                        X='decision'-> decision , instruccion;
                        X='else' ->else ,instruccion;
                        X='elseif' ->elseif ,instruccion;
                        X='return'->return , instruccion;
                        X='fin'->write('')). 
finMetodo :- write(' }"').

asignacion :-  read(X) , write(X), write('=') , read(Y) , write(Y) ,write(';').

decision :- write('if (') , read(X) , write(X) , write(') {') , instruccion , write('}').

else :- write('else') , write('{') , instruccion , write('}').

elseif :- write('else if (') , read(X) , write(X) , write(') {') , instruccion , write('}').

return :- read(X), write('return '), write(X).

valor :-read(T),(T='cadena'->cadena;
                 T='numero'->numero;
                 T= 'booleano' -> booleano;
                 T='arreglo'->arreglo;
                 T='metodo'->metodo;
                 T='objeto'->objeto).
:- objeto.

atributo.
  precio.
  numero.
  563000.

atributo.
 estatus.
  metodo.
   decision.
   obj.precio<313163.32.
     asignacion.
        resultado.
        obj.precio*0.02.
      return.
        resultado.
   fin.

elseif.
          obj.precio<375795.92.
         asignacion.
          resultado.
          ((obj.precio-313163.33)*0.05) + 6263.16.
        return.
         resultado.
     fin.
      elseif.
          obj.precio<438428.76.
           asignacion.
            resultado.
            ((obj.precio-375795.93)*0.1) + 9394.94.
            return.
             resultado.
            fin.

elseif.
              obj.precio<563693.73.
               asignacion.
                resultado.
                 ((obj.precio-438428.77)*0.15) + 15658.19.
                  return.
                  resultado.
                  fin.

else.
                   asignacion.
                     resultado.
                     ((obj.precio-563693.74)*0.17) + 34447.90.
                     return.
                     resultado.
                   fin.
fin.
fin.

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