Help with calculating inheritance

From: harry270768 (harnit_b_at_mail.com)
Date: 05/12/04

Date: Wed, 12 May 2004 00:25:00 -0400

hi guys

subinheritance(Person,Amount):-
(aunt(Person,Dummy),hold_degree(Dummy,phd) ->
(Amount is 3000);Amount is 0).

given the following rule

Assume aunt(john,X)?
gives X=cassy
and X=linda

hold_degree(cassy,phd).
hold_degree(linda,phd).

My problem is for example if john has 2 aunts and they both have a phd
degree then john should get $3000 for each aunt.

therefore subinheritance(john,X)?
shud give X=6000

Now i cant figure out how to do this , coz what i have done is it just
gives me X=3000

So how do you loop for every aunt and then get the total ??
please help !!!!

thanx

Relevant Pages

Re: Interesting question
... John writes: ... asked to compute the last nonzero digit of 5!, ... Dear aunt, let's set so double the killer delete select all. ... -- Microsoft voice recognition live demonstration ...
(sci.math)
Re: Short LOA
... so going to stop overnight tomorrow with mum. ... Funeral is for my aunt (mum's oldest sister). ... Sorry to hear you have to attend a funeral John but she had a good innings ...
(uk.people.silversurfers)
John Kool goes to Skool
... There is a brown leather schoolbag behind the door ... John has been away to visit his uncle and aunt. ... The day is drawing near when John will go to school... ...
(rec.arts.poems)
Re: Overcarbonation or something else?
... On Fri, 27 Oct 2006 12:03:24 GMT, John Bleichert ... if you used an excessive amount of priming. ... DME varies in fermentability with brand. ...
(rec.crafts.brewing)
Re: Trailing 3 month values
... TR3 amount to be displayed. ... I have the amount for each month. ... "John W. Vinson" wrote: ...
(microsoft.public.access.queries)