Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
fia 24 ago
objeto :- write('{'), aux1, write('}'). aux1 :- read(X),(X='atributo'-> atributo; X='fin'->write(''); write('error '), write(X)). atributo :- cadena, write(':'), valor, a1. a1 :- read(X),(X='atributo'-> write(','),atributo; X='fin'->write(''); write('error '), write(X)). cadena :- read(C),write('"'),write(C),write('"'). valor :- read(T),(T='cadena'->cadena; T='numero'-> read(N),write(N); T='arreglo'->arreglo; T='objeto'->objeto; write('error'),write(T)). arreglo :- write('['), aux2, write(']'). aux2 :- read(X),(X='valor'-> valor,a2; X='fin'->write(''); write('error '), write(X)). a2 :- read(X),(X='valor'-> write(','),valor; X='fin'->write(''); write('error '), write(X)). :- objeto.
run
|
edit
|
history
|
help
0
Empresa
2 - Codificador Empresa JSON Completo GAMESa
ISAN completo
jjjj
Clase 1 arreglos anidados
ISAN_VELIZ_ESTRADA_ERICK_RODRIGO
Calculando ISAN Quiroga
Luna Ramírez Diana, Ejercicio 3, Primer examen parcial
json final
Clase 25/03