Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
json con objetos recursivos 25 feb 2021
objeto:- write('{'),read(X), (X='atributo'->atributo),write('}'). a1:- read(X),(X='atributo'-> write(','),atributo;(X='fin'->write(''))). atributo:- read(X), write('"'), write(X), write('":'),tipoatributo(X),a1. tipoatributo(M):- read(X), (X='metodo'->metodo(M); (X='numero'->numero; (X='cadena'->cadena; (X='objeto'->objeto; write('error'))))). % array :- write('['), read(X), (X='atributo'->atributo),write(']'). 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; (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, write('}'),falso,write('}'). condicion:-read(X), write(X). verdadero:- write('{'),a2. falso:- write('else {'),a2. :-objeto.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Atributos Infinitos
Lin205
Agrupación Bayes
Examen
Consulta SQL
Gramatica de objetos entrega
Generador Query
json con metodos
Codificador de arreglos y objetos
Inicio del objeto empresa
Please log in to post a comment.