Base conocimiento SUPER QUERYS, Prolog

Language: Layout:

create_querys:- read(CAMPO1), read(CAMPO2), read(TABLA), query1(CAMPO1,TABLA),query2(CAMPO1,CAMPO2,TABLA).

query1(CAMPO1,TABLA):- 
write('SELECT '), write(CAMPO1), write(', COUNT(*)/(SELECT COUNT(*) FROM '), write(TABLA),write(") AS 'probabilidad' "), 
    write(' FROM ' ),write(TABLA), 
    write(' WHERE '), write(CAMPO1),write(' IN'),write('('), subquery(CAMPO1,TABLA), write(')'),
    write(' GROUP BY '),write(CAMPO1),write(';').
  
query2(CAMPO1,CAMPO2,TABLA):- 
write('SELECT '),write(CAMPO1),write(', '),write(CAMPO2),write(', COUNT(*)/(SELECT COUNT(*) FROM '), write(TABLA),write(") AS 'probabilidad' "),
    write(' FROM '),write(TABLA),
    write(' WHERE '),write(CAMPO1), write('  IN ('),subquery(CAMPO1,TABLA),write(') AND '),write(CAMPO2),write(' IN ('),subquery(CAMPO2,TABLA),write(')'),
    write(' GROUP BY '),write(CAMPO2),write(','),write(CAMPO1),write(' ORDER BY '),write(CAMPO1),write(', '),write(CAMPO2),write(';').

subquery(CAMPO,TABLA):- write(' SELECT DISTINCT '),write(CAMPO), write(' FROM '),write(TABLA).

:- create_querys.

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