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/female.cpl
2009-02-16 12:23:29 +00:00

27 lines
314 B
Plaintext

/*
s([female(f)],P).
P = 0.6 ?
s([male(f)],P).
P = 0.4 ?
*/
male(C):M/P;female(C):F/P:-
person(C),
setof(Male,known_male(Male),LM),
length(LM,M),
setof(Female,known_female(Female),LF),
length(LF,F),
P is F+M.
person(f).
known_female(a).
known_female(b).
known_female(c).
known_male(d).
known_male(e).