Потихоньку изучаю prolog, пользуюсь GNU Prolog. Код:
item(1, apple, 150).
item(2, mushroom, 120).
item(3, grape, 200).
item(4, melon, 300).
find_item(X) :-
item(_,X,_).
| ?- find_item(apple).
true ? ;
no
item(1, apple, 150).
item(2, mushroom, 120).
item(3, grape, 200).
item(4, melon, 300).
find_item(X) :-
item(X,_,_).
| ?- find_item(1).
yes
