SuperQueries, Prolog

Language: Layout:

%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.

[ - ] Show input
Absolute running time: 0.34 sec, cpu time: 0.18 sec, memory peak: 7 Mb, absolute service time: 0,44 sec