Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
jproba inicio 9 nov
bosque :- red. red :- write('{red:{"nbred":"'),read(X),write(X),write('", '),write('"frecuencia":'),read(Y),write(Y),write(", "),a1, write('}}'). a1 :- read(X),(X='dimension'-> dimension;(X='fin'->write(''))). dimension :- write('[{dimension:{"nbdimension":"'),read(X),write(X),write('", '),a2,write('}}]') . a2 :- read(X),(X='valor'-> valor;(X='dimension'->write(', '), dimension, write('}}]') ;(X='fin'->write('')))). valor :- write('[{valor:{"nbvalor":"'),read(X),write(X),write('", '),write('"frecuencia":'),read(Y),write(Y),write('}}]'),a2. :- bosque. /*arbol :- write('{"arbol":{"nbarbol":'), read(X), write(X), dimension, write('}}'). dimension :- write('{"dimension":{"nbdimension":'), read(X), write(X), valor, write('}}'). valor :- write('{"valor":{"nbvalor":'), read(X), write(X), write(' "frecuencia":'), read(Y), write(Y), write('}}'). :- arbol.*/
run
|
edit
|
history
|
help
0
swipl-1
industria 2
Tarea_15_Marzo_Martinez_Barranco_Diego
Arreglos
ETS ingenieria del conocimiento
Tarea 4NM70 HCHCHP
Decisiones anidadas
Modelo Empresa Gabo
Json Basico
inicio ontologia json