Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
2 objeto empresa en json
objeto :- write('{'),aux1,write('}'). aux1 :- read(X),(X='atributo'->atributo; X='fin'->write('')). atributo :- cadena,write(':'),valor,aux3. valor :- read(T),(T='cadena'->cadena; T='objeto'->objeto; T='numero'->numero; T='arreglo'->arreglo). cadena :- read(X),write('"'),write(X),write('"'). numero :- read(N),write(N). arreglo :- write('['),aux2,write(']'). aux2 :- read(E),(E='elemento'->valor,aux4; E='fin'->write('')). aux3 :- read(X),(X='atributo'->write(', '),atributo; X='fin'->write('')). aux4 :- read(E),(E='elemento'->write(', '),valor,aux4; E='fin'->write('')). :- objeto.
run
|
edit
|
history
|
help
0
aaa
Arreglos_Acatitla_Gonzalez
Arreglo
arreglo
QUINTANA VEGA CESAR
swipl-1
nombre del método pasado como parámetro, corregir error
PRODUCTIVAS
Morales Bazan Josue Jonathan - examen - 21/09/2021
2 - codificador JSON Funcion IF - ELSE Anidado