Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
2 - Codificador Empresa JSON Competidores
objeto :- write('{'),aux1, write('}'). aux1 :- read(X),(X='atributo'->atributo; X='fin'->write('')). atributo :-read(X),write('"'),write(X),write('"'), write(':'),valorobjeto(X),aux2. 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). 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(','),valor,aux4; X='fin'->write('')). valorarreglo :-read(Y),(Y='cadena'->cadena; Y='numero'->numero; Y='objeto'->objeto; Y='arreglo'->arreglo; Y='true'->verdadero; Y='false'->falso). 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
ejercicios de la coma
ING. CONOCIMIENTO
Modelo Empresa Gabo
Examen
Asignación_ProbabilidadValoresDeUnCampo_
Arreglos-Alcántara Noriega Marco Antonio
decisiones anidadas
Clase 1 inicio codificador
Examen
Codificador JSON Acosta Rodriguez Luis Manuel