From CSULA CS Wiki
Jump to: navigation, search
m
 
Line 38: Line 38:
 
  dif(X,Y).
 
  dif(X,Y).
 
</pre>
 
</pre>
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
<div  style="display:none">
 
[We are delicate. We do not delete your content.]
 
[l_sp4]
 
 
 
[http://www.buddyprofile.com/viewprofile.php?username=waterfordcrystal waterford crystal]
 
[http://www.buddyprofile.com/viewprofile.php?username=swarovskicrystal swarovski crystal bead]
 
[http://www.buddyprofile.com/viewprofile.php?username=mesotheliomalawsuits mesothelioma lawsuits]
 
[http://www.buddyprofile.com/viewprofile.php?username=mesotheliomasymptoms mesothelioma symptoms]
 
[http://www.buddyprofile.com/viewprofile.php?username=mesotheliomadiag mesothelioma diagnosis]
 
[http://www.buddyprofile.com/viewprofile.php?username=wacoalbras wacoal bras]
 
[http://www.buddyprofile.com/viewprofile.php?username=teenbra teen bra]
 
[http://www.buddyprofile.com/viewprofile.php?username=unsecuredloan unsecured signature loan]
 
[http://www.buddyprofile.com/viewprofile.php?username=homeloans Countrywide Home Loans]
 
[http://blog.moddingplanet.it/?w=formalpromdresses Formal Prom Dresses]
 
[http://blog.moddingplanet.it/?w=sexypromdress Sexy Prom Dress]
 
[http://blog.moddingplanet.it/?w=cocktaildresses cocktail dresses]
 
[http://www.buddyprofile.com/viewprofile.php?username=telmobile TMobile]
 
[http://www.buddyprofile.com/viewprofile.php?username=watersoftener water softener]
 
[http://www.buddyprofile.com/viewprofile.php?username=tanklesswaterheater tankless water heater]
 
[http://www.buddyprofile.com/viewprofile.php?username=rockportshoes rockport shoes]
 
[http://www.buddyprofile.com/viewprofile.php?username=osmosiswaterfilter reverse osmosis water filter]
 
[http://www.buddyprofile.com/viewprofile.php?username=merrellshoes merrell shoes]
 
[http://www.buddyprofile.com/viewprofile.php?username=oscardresses oscar dresses]
 
[http://www.buddyprofile.com/viewprofile.php?username=easterdresses easter dresses]
 
[http://flyfone.blox.pl/resource/flyfonevoip.htm flyfone voip]
 
[http://www.buddyprofile.com/viewprofile.php?username=plussizepromdresses plus size prom dresses]
 
[http://www.buddyprofile.com/viewprofile.php?username=discountpromdresses discount prom dresses]
 
[http://blog.moddingplanet.it/?w=hooterscasinolas Hooters Casino Las Vegas]
 
[http://blog.moddingplanet.it/?w=grandcasinomille grand casino mille lacs]
 
[http://blog.moddingplanet.it/?w=lasvegascasino las vegas casino coupons]
 
[http://blog.moddingplanet.it/?w=onlinepokeraide online poker aide]
 
[http://www.donx.de/blog/pechangacasino pechanga casino]
 
[http://www.donx.de/blog/grandvictoriacasino/ grand victoria casino]
 
[http://www.donx.de/blog/ballgowns/ ball gowns]
 
[http://www.privetparis.com/blog/rtgcasinobonus/ rtg casino bonus]
 
 
[http://blog.moddingplanet.it/?w=rtgcasinobonus rtg casino bonus]
 
[http://blog.moddingplanet.it/?w=grandcasinocoushat grand casino coushatta]
 
[http://blog.moddingplanet.it/?w=grandcasinohinckle grand casino hinckley]
 
[http://blog.moddingplanet.it/?w=isleofcapricasino isle of capri casino]
 
[http://blog.moddingplanet.it/?w=mohegansuncasino mohegan sun casino]
 
[http://blog.moddingplanet.it/?w=palacasino pala casino]
 
[http://blog.moddingplanet.it/?w=roulettewheels roulette wheels]
 
[http://blog.moddingplanet.it/?w=winstarcasino winstar casino]
 
[http://blog.moddingplanet.it/?w=cheappromdresses Cheap Prom Dresses]
 
[http://blog.moddingplanet.it/?w=informalweddingdre informal wedding dresses]
 
[http://blog.moddingplanet.it/?w=oscardresses oscar dresses]
 
[http://blog.moddingplanet.it/?w=eveninggowns evening gowns]
 
</div>
 

Latest revision as of 15:20, 22 May 2006



greatAunt(X) :-
 sister_of(X,Y),
 parent(Y,Z),
 parent(Z,_).

greatAunt(X) :-
 wife(X,Y),
 brother_of(Y,Z),
 parent(Z,A),
 parent(A,_).

full_brother(X,Y) :-
 parents(X,M,F),
 parents(Y,M,F),
 dif(X,Y).
 
half_brother(X,Y) :-
 parents(X,M1,F),
 parents(Y,M2,F),
 dif(X,Y).
 dif(M1,M2).
 
half_brother(X,Y) :-
 parents(X,M,F1),
 parents(Y,M,F2),
 dif(X,Y),
 dif(F1,F2).
 
half_brother2(X,Y) :-
 parent(X,Z),
 parent(Y,Z),
 parent(X,P1),
 parent(Y,P2),
 dif(P1,P2),
 dif(X,Y).