SuperQueries, Prolog

SuperQueries

%Leemos la tabla, campo1 y campo2y se llaman las funciones que generan los query
superquery:- read(T), read(C), read(C2), superquery1(T,C), superquery2(T,C,C2).
%Sentencia para generar query 1
superquery1(T,C):- write('select '), write(C), write(', '), sentenciacount(T),
                   write(') as probabilidad from '), write(T), write(' where '), sentenciain(T,C), 
                   write(' group by '),write(C), write(';\n').  %El \n solo es para presentación en consola          
%Sentencia para generar query 2                          
superquery2(T,C,C2):- write('select '), write(C), write(', '), write(C2), write(', '),sentenciacount(T), 
                      write(') as Probabilidad from '), write(T), write(' where '), 
                      sentenciain(T,C), write(' AND '), sentenciain(T,C2),
                      write(' group by '), write(C2), write(','), write(C), write(' order by '), write(C), write(', '), write(C2), write(';').
%Sentencias que se repiten en ambos query, simplificando para escribir menos
sentenciacount(T):- write('count(*)/(select count(*) from '), write(T).                   
sentenciain(T,C):- write(C), write( ' in(select distinct '),write(C), write(' from '), write(T),write(')').    
:- superquery.


run \| edit \| history \| help	0