SuperQueries, Prolog

Language: Layout:

superquery:- read(T), read(C), read(C2), superquery1(T,C), superquery2(T,C,C2). %Leemos la tabla, campo1 y campo2y se llaman las funciones que generan los query
superquery1(T,C):- write(C), write(', '), write('count(*)/(SELECT count(*) FROM '), write(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          
                          
superquery2(T,C,C2):- write(C), write(', '), write(C2), write(', '),write('count(*)/(SELECT count(*) FROM '), write(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(';').
                      
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