Base de conocimientos, Prolog

Language: Layout:

objeto:- write('{ '), read(X), (X = 'atributo' -> atributo; write(' ')), write('}').
atributo:- read(X), write('"'), write(X), write('":'), tipoatributo(X), otro.
tipoatributo(M):- read(X), (X='metodo'->metodo(M); (X='numero'->numero; (X='cadena'->cadena; (X='objeto'->objeto; (X='arreglo'->arreglo;write('errorTipoDato')))))).
otro:- read(X), (X='atributo'->write(', '), atributo; write('')).
cadena:- read(X), write('"'), write(X), write('"'). 
numero:- read(X), write(X).
arreglo:-  write('['), read(X), (X = 'valor'->tipovalor; write('')), write(']').
tipovalor:- read(X),(X='numero'->numero; (X='cadena'->cadena; (X='objeto'->objeto; (X='arreglo'->arreglo;write('errorTipoDato'))))),otrovalor.
otrovalor:- read(X), (X='valor'->write(','), tipovalor; X='finarray'->write('')).
metodo(M):- write('"function() {'),a2,write(' return '), write(M), write(';}"').
a2:- read(X), (X = 'decision' -> decision ; (X = 'asignacion' -> asignacion ; (X='fin' -> write(''); (write('ERROR: '), write(X))))).
asignacion:- read(X), write(X), write('='), read(Y), write(Y), write(';'),a2.
decision:- write('if('),condicion,write(')'), verdadero,falso.
condicion:- read(X), write(X).
verdadero:- write('{'),a2,write('}').
falso:- write('else {'),a2,write('}').
:- objeto.

atributo.
    arreglo_numeros.
        arreglo.
            valor. numero. 56.
            valor. numero. 421.
            valor. numero. 902.

valor. arreglo.
                    valor. numero. 156.
                    valor. numero. 359.
                finarray.
        finarray.

atributo.
    arreglo_cadenas.
        arreglo.
            valor. cadena. hola.
            valor. cadena. mundo.
        finarray.

atributo.
    arreglo_combinado.
        arreglo.
            valor. numero. 56.
            valor. cadena. cad.
            valor. numero. 902.  
        finarray.

atributo.
    arregloObjetos_carros.
        arreglo.
            valor.
                objeto.
                    atributo.
                        puertas.
                            numero.
                                2.
                    atributo.
                        modelo.
                            cadena.
                                deportivo. 
                finobj.
            valor.
                objeto.
                    atributo.
                        puertas.
                            numero.
                                4.
                    atributo.
                        modelo.
                            cadena.
                                todo_terreno. 
                finobj.
        finarray.

atributo.
     numerico_normal. numero.  6.
atributo.
     cadena_normal. cadena. hola_muestra.

atributo.
    objeto_carro.
        objeto.
             atributo. puertas. numero. 4.
             atributo. modelo. cadena. todo_terreno.  
        finobj.

atributo.
    categoria.
      metodo.
        decision.
            obj.precio < 283241.21.
                asignacion. categoria. 1.
        fin.
        decision.
            obj.precio < 339889.39.
               asignacion. categoria. 2.
        fin.
        decision.
            obj.precio < 396537.79.
                asignacion. categoria. 3.
        fin.
        decision.
            obj.precio < 509833.95.
                asignacion. categoria. 4.
        fin.
        asignacion. categoria. 5.
fin.

[ - ] Show input
Absolute running time: 0.23 sec, cpu time: 0.12 sec, memory peak: 7 Mb, absolute service time: 0,33 sec