Dann, examen parte 1, Prolog

Language: Layout:

empresa:- write('{"empresa":"'), read(X) , write(X), write('",'),usuarios, write('}').
usuarios:- write(' "usuarios":"['),usuario, write(']').
usuario:- write(' "usuario":"['),read(X) , write(X), write('",'), ontologia, write('}').
ontologia:- write('"ontologia":"'), read(X), write(X), write('",'), objeto.
objeto:- write(' "objeto":'), read(X), write('"'), write(X), write('", '),atributos.
atributos:- atributo, read(X), X=1 -> (write(', '),atributos);write('').
atributo:- read(X), write('"'), write(X), write('":'),tipoatributo(X). 
tipoatributo(M):- read(X), (X='metodo'->metodo(M); b1(X)).
b1(X):- X='numero'->numero; b2(X).
b2(X):- X='cadena'->cadena;(nl,nl,nl,write('ERROR AL INGRESAR: '),write(X),nl,nl,nl).
cadena:- read(X), write('"'), write(X), write('",').
numero:-read(X), write(X).
metodo(M):- write('"function() {'),a2,write(' return '), write(M), write(';}"').
a2:- read(X), (X='decision'->decision;a3(X)).
a3(X):- X='asignacion' -> asignacion;(nl,nl,nl,write('ERROR AL INGRESAR: '),write(X),nl,nl,nl).
asignacion:-  read(X), write(X), write('='), read(Y), write(Y), write(';').
    decision:- write('if('),condicion,write(')'), verdadero.
condicion:-read(X), write(X).
verdadero:- write('{'),a2,write('}').
falso:-  write('{'),a2,write('}').

:- empresa.

[ - ] Show input
Absolute running time: 0.45 sec, cpu time: 0.38 sec, memory peak: 4 Mb, absolute service time: 0,46 sec