This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/cplint/examples/paper_ref_simple.cpl
2009-02-16 12:23:29 +00:00

46 lines
597 B
Plaintext

/*
?- s([cites_cited(c1,Pap)],P).
P = 0.333333333333333,
Pap = p1 ? ;
P = 0.333333333333333,
Pap = p2 ? ;
P = 0.333333333333333,
Pap = p4 ? ;
no
?- Action (h for help): c
| s([cites_citing(c1,Pap)],P).
P = 0.5,
Pap = p3 ? ;
P = 0.5,
Pap = p5 ? ;
no
*/
paper(p1).
paper(p2).
paper(p3).
paper(p4).
paper(p5).
paper_topic(p1,theory).
paper_topic(p2,theory).
paper_topic(p4,theory).
paper_topic(p3,ai).
paper_topic(p5,ai).
cites(c1).
uniform(cites_cited(C,P),P,L):-
bagof(Pap,paper_topic(Pap,theory),L).
uniform(cites_citing(C,P),P,L):-
bagof(Pap,paper_topic(Pap,ai),L).