Querys Dante Romero, Prolog

Language: Layout:

squerys:- read(X), read(Y), read(Z), query1(X,Y), write(';'), nl, nl, query2(X,Y,Z), write(';').
count:- write(' count(*)/(select count(*) from '). 
in:- write(' in(select distinct ').
as:- write(') as Probabilidad from ').
group:- write(' group by ').
order:- write(' order by ').

query1(M,N):- write('select '), write(N), write(','), count, write(M), as, write(M), write(' where '), write(N), in, write(N), write(' from '), write(M), write(')'), group, write(N).

query2(M,N,O):- write('select '), write(N), write(', '), write(O), write(','), count, write(M), as, write(M), write(' where '), write(N), in, write(N), write(' from '), write(M), write(')'),
write(' and '),write(O),in,write(O),write(' from '),write(M),write(')'),group,write(O),write(', '),write(N), order, write(N), write(' '), write(O).
:- squerys.

%select Y, count(*)/(select count(*) from X) as probabilidad from X where Y in(select distinct Y from X) group by Y;

%select Y, Z, count(*)/(select count(*) from X) as Probabilidad from X where Y in(select distinct Y from X) and Z in(select distinct Z from X) group by Z, Y order by Y, Z;

[ - ] Show input
Absolute running time: 0.36 sec, cpu time: 0.21 sec, memory peak: 7 Mb, absolute service time: 0,45 sec