Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Tarea arreglos json
objeto :- write('{'), read(X),(X='atributo'->atributo; X='vacio'->write('')),a1, write('}'). a1:- read(X),(X='atributo'->write(','),atributo,a1; X='finA1'->write('')). atributo:-cadena, write(':'), valor. valor:- read(X), (X='numero'->numero; X='cadena'->cadena; X='objeto'->objeto; X='arreglo'->arreglo). cadena:-write('"'),read(X),write(X),write('"'). numero:- read(X),write(X). arreglo:- write('['),nuevoDatoArreglo,write(']'). nuevoDatoArreglo:- read(J), (J='valor'->valor,a2). a2:- read(Y),(Y='valor'->write(','),valor,a2; Y='finA2'->write('')). :- objeto.
run
|
edit
|
history
|
help
0
Martinez Lopez Said - CICLO FOR
arrays
Super Querys Alcántara Noriega Marco Antonio
SQL Acosta
isan Leonardo Calvillo Tapia
ObjetosyArreglos_4CM70_RosanoVargasIvan
codificador_arreglos_objetos
KarymeRG-Inventarios
PROLOG evaluacion
Tarea 2