Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ISAN - FINAL
%commands to the interpreter are submitted from stdin input ('show input' box below) %'halt.' will be automatically appended to stdin input. %swi-prolog 7.6.4 objeto :- write('{'),aux1,write('}'). atributo :- cadena,write(':'),valor,aux2. cadena :- read(X),write('"'),write(X),write('"'). numero :- read(N),write(N). arreglo :- write('['),aux3,write(']'). verdadero :- write('true'). falso :- write('false'). metodo :- write('"function() {'),instruccion,write('return isan}"'). instruccion :- read(I),(I='asignacion'->asignacion,instruccion; I='decision'->decision,instruccion; I='fin'->write('')). asignacion :- read(X),write(X),write('='),read(Y),write(Y),write(';'). decision :- write('if ('),read(C),write(C),write(') {'),instruccion,write('}'),aux5. aux1 :- read(X),(X='atributo'->atributo; X='fin'->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='sinosi'->write('else '),decision; X='sino'->write('else {'),instruccion,write('}'); X='fin'->write('')). valor :-read(Y),(Y='cadena'->cadena; Y='numero'->numero; Y='objeto'->objeto; Y='arreglo'->arreglo; Y='true'->verdadero; Y='false'->falso; Y='metodo'->metodo). :- objeto.
run
|
edit
|
history
|
help
0
Calculando ISAN Quiroga
Tarea
Tarea 2 con json con array
RuizRodriguezEdwinAndres-P1
Avance1_TAREA_15_MARZO
json con objetos y arreglos recursivos
2 - Codificador JSON atributos infinitos
Pract. 2
Modelo Empresa Gabo
Querys Dante Romero