Word sense disambiguation using Problog

disambiguate.pl

0.9::attribute_value(brown, brand).
0.9::attribute_value(brown, color).
0.9::attribute_value(tv, noun).
0.9::attribute_value(dress, clothing).

member(X, [Y|T]) :- X = Y; member(X, T).

item_prop(1, brown, brand).
item_prop(1, tv, noun).

item_prop(2, brown, color).
item_prop(2, dress, clothing).
    
0.8::disambiguate(Word, Attribute, Sentence) :-
    member(Word, Sentence),
    attribute_value(Word, Attribute),
    member(AnotherWord, Sentence),
    attribute_value(AnotherWord, AnotherWordAttribute),
    item_prop(ItemNumber, Word, Attribute),
    item_prop(ItemNumber, AnotherWord, AnotherWordAttribute).
    
query(disambiguate(brown, X, [brown, tv])).
query(disambiguate(brown, X, [brown, dress])).