Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Valdes_Esquivel_Rafael_UNO
empresa :- write('{"empresa":"'), read(X) , write(X), write('",'),usuarios, write('}'). usuarios :- write(' "usuarios":"['),usuario, write(']'). usuario :- write(' "usuario":"['),read(X) , write(X), write('",'), ontologia, write('}'). ontologia :- write('"ontologia":"'), read(X), write(X), write('",'), objeto. objeto :- write(' "objeto":'), read(X), write('"'), write(X), write('", '),atributos. atributos :- atributo, read(X), X=1 -> (write(', '),atributos);write(''). atributo :- read(X), write('"'), write(X), write('":'),tipoatributo(X). tipoatributo(M):- read(X), (X='metodo'->metodo(M); b1(X)). b1(X) :- X='numero'->numero; b2(X). b2(X) :- X='cadena'->cadena;(nl,nl,nl,write('ERROR AL INGRESAR: '),write(X),nl,nl,nl). cadena :- read(X), write('"'), write(X), write('",'). numero :- read(X), write(X). metodo(M) :- write('"function() {'),a2,write(' return '), write(M), write(';}"'). a2 :- read(X), (X='decision'->decision;a3(X)). a3(X) :- X='asignacion' -> asignacion;(nl,nl,nl,write('ERROR AL INGRESAR: '),write(X),nl,nl,nl). asignacion :- read(X), write(X), write('='), read(Y), write(Y), write(';'). decision :- write('if('),condicion,write(')'), verdadero. condicion :- read(X), write(X). verdadero :- write('{'),a2,write('}'). falso :- write('{'),a2,write('}'). :- empresa.
run
|
edit
|
history
|
help
0
codificacion de mercado
Examen 2 Parte
segundoprograma
DecisionesAnidadas_ISAN
aniki1
Arreglos_TunRojasCarolina
Base de conocimiento 0.3 ciclo
codificacion de mercado
Tarea 27/08/2021
Tarea1