Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
arreglo de 2 objetos empresa
objeto :- write('{'),aux1, write('}'). aux1 :- read(X),(X='atributo'->atributo; X='fin'->write('')). valorobjeto(M) :-read(Y),(Y='cadena'->cadena; Y='numero'->numero; Y='objeto'->objeto; Y='arreglo'->arreglo; Y='metodo'->metodo(M); Y='true'->verdadero; Y='false'->falso). valorarreglo :-read(Y),(Y='cadena'->cadena; Y='numero'->numero; Y='objeto'->objeto; Y='arreglo'->arreglo; Y='true'->verdadero; Y='false'->falso). atributo :- read(X),write('"'),write(X),write('"'), write(':'),valorobjeto(X),aux2. aux2 :- read(X),(X='atributo'->write(','),atributo; X='fin'->write('')). cadena :- read(X),write('"'),write(X),write('"'). numero :- read(N),write(N). arreglo :- write('['),aux3,write(']'). aux3 :- read(X),(X='valor'->valorarreglo,aux4; X='fin'->write('')). aux4 :- read(X),(X='valor'->write(','),valorarreglo,aux4; X='fin'->write('')). verdadero :- write('true'). falso :- write('false'). metodo(M) :- write('"function() {'),instruccion, write('return'), write(M), write('}"'). asignacion :- read(X),write(X),write('='),read(Y),write(Y),write(';'). aux5 :- read(X),(X='sinosi'->write('else '),decision; X='sino'->write('else {'),instruccion,write('}'); X='fin'->write('')). decision :- write('if ('),read(C),write(C),write(') {'),instruccion,write('}'),aux5. instruccion :- read(I),(I='asignacion'->asignacion,instruccion; I='decision' ->decision,instruccion; I='fin'->write('')). :- objeto.
run
|
edit
|
history
|
help
0
FIA 24 2
jproba inicio 9 novV2
Ejercicio Condiciones IF anidados Clase 4 - Guzmán Martínez Ricardo Alejandro
Empresa
Superqueries final
SantillanChalico Base de Conocimiento
Ejercicio atributos
1 - Inicio Codificador JSON
1 . Codificador objeto JSON
Méndez Huerta Janet- Empresa 38