Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Sánchez López Fernando Gabriel - JSON arrays
objeto:- write('{'), read(X), a1(X), write('}'). a1(X):- X = 'atributo' -> atributo; write(' '). atributo:- read(X), write('"'), write(X), write('":'), tipoatributo(X), otro. otro:- read(X), X = 'atributo' -> write(', '), atributo; write(' '). tipoatributo(M):- read(X),(X='metodo'->metodo(M); X='numero'->numero; X='cadena'->cadena; X='objeto'->objeto; X='arreglo'->arreglo;write('error') ). arreglo:- write('['),read(X), aa(X), write(']'). aa(X):- X='elemento'->elemento;write(' '). elemento:-tipoatributo(true),nuevoe. nuevoe:-read(X),X='elemento'->write(','),elemento;X='fina'->fina;write(''). fina:- 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;a3(X)). a3(X):- X='asignacion' -> asignacion;(a4(X)). a4(X):- 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.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Base conocimiento SUPER QUERYS
Inicio del codificador Json
task2
Mora Flores Luis Arturo Codificar árboles de decisión estructurada
IF ANIDADOS
Tarea
Esclavo JSON
IF anidado
Empresa
primer ejercicio
Please log in to post a comment.