Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Intento tarea 2
objeto :- write('{'),aux1, write('}'). aux1 :- read(X),(X='atributo'->atributo; X='fin'->write('')). atributo :-cadena, write(':'),valor,aux2. arreglo :- write('['),aux11, write(']'). aux2 :- read(X),(X='atributo'->write(','),atributo; X='fin'->write('')). aux3 :- read(X),(X='valor'->valor,aux4; X='fin'->write('')). aux4 :- read(X),(X='valor'->write(','),valor,aux4; X='fin'->write('')). aux5 :- read(X),(X='valor'->write(','),valor,aux5; X='fin'->write('')). aux6 :- read(X),(X='valor'->write(','),valor,aux6; X='fin'->write('')). aux7 :- read(X),(X='valor'->write(','),valor,aux7; X='fin'->write('')). aux8 :- read(X),(X='valor'->write(','),valor,aux8; X='fin'->write('')). aux9 :- read(X),(X='valor'->write(','),valor,aux9; X='fin'->write('')). aux10 :- read(X),(X='valor'->write(','),valor,aux10; X='fin'->write('')). aux11 :- read(X),(X='valor'->valor,aux12; X='fin'->write('')). aux12 :- read(X),(X='valor'->write(','),valor,aux12; X='fin'->write('')). cadena :- read(X),write('"'),write(X),write('"'). numero :- read(X),write(X). valor :-read(T),(T='cadena'->cadena; T='numero'->numero; T='arreglo'->arreglo; T='objeto'->objeto). :- objeto.
run
|
edit
|
history
|
help
0
Sánchez López Fernando Gabriel - JSON arrays
Metodos con if anidado y falsos
Karol_lopez_1
Clase 07/09/2021
is_sort
Astar
Programa completo
2.Examen
Ejercicio 3 Examen Arredondo Amaro Carlos Jair
Codificador de arreglos y objetos