27 lines
314 B
Plaintext
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).
|