color_of_fruit(Fruit, Color) :- fruit_color(Fruit, Color). % Example queries to test the program % ?- color_of_fruit(apple, Color). % ?- color_of_fruit(Fruit, yellow).
file containing the predicate definitions for the requested familial relations defines predicates for parent, sibling, nth cousin, nth cousin k-times-removed, grandparent, and kth child. My ...