2da operación, Prolog - rextester

Run Code | API | Code Wall | Misc | Feedback | Login | Theme | Privacy | Patreon

2da operación

jproba:-write('{"jproba":'),arbol, write('}').
arbol:-write('{"nbarbol":"'),read(Nbarbol),write(Nbarbol),write('", "frecuencia":'),frecuencia(Nbarbol), write('}').
frecuencia(Nbarbol):-write('"select count(*) from '),write(Nbarbol),write(';"').
:-jproba.

jproba:-write('{"jproba":'),arbol, write('}').
arbol:-write('{"nbarbol":"'),read(Nbarbol),write(Nbarbol),write('", "frecuencia":'),frecuencia(Nbarbol), write('}').
frecuencia(Nbarbol):-write('"select count(*) from '),write(Nbarbol),read(Nbdimension),
write(' where '),write(Nbdimension),write(' in(select distinct '),write(Nbdimension),write(' from '),write(Nbarbol),write(') group by '),write(Nbdimension),write(';"').
:-jproba.

jproba:-write('{"jproba":'),arbol, write('}').
arbol:-write('{"nbarbol":"'),read(Nbarbol),write(Nbarbol),write('", "frecuencia":'),frecuencia(Nbarbol), write('}').
frecuencia(Nbarbol):-write('"select distinct '),read(Nbdimension),write(Nbdimension),write(' from '),write(Nbarbol),write(';"').
:-jproba.

jproba:-write('{"jproba":'),arbol, write('}').
 arbol:-write('{"nbarbol":"'),read(Nbarbol),write(Nbarbol),write('", "frecuencia":'),frecuencia(Nbarbol), write('}').
 frecuencia(Nbarbol):-write('"select count(*) from '),write(Nbarbol),write(';"'),write(','),dimension(Nbarbol).
 dimension(Nbarbol):-write('{"nbdimension":"'),read(Nbdimension),write(Nbdimension),write('",'),puerta(Nbarbol,Nbdimension).
 puerta(Nbarbol,Nbdimension):-write('"select '),write(Nbdimension),write(', '),write('count(*)/(select count(*)from '),write(Nbarbol),write(') from '),write(Nbarbol),write(' where '),write(Nbdimension),write(' in(select distinct '),write(Nbdimension),write(' from '),write(Nbarbol),write(') group by '),write(Nbdimension),write(';"').
 :-jproba,jproba,jproba,jproba,jproba,jproba.


run \| edit \| history \| help	0