% 商品データ
% product(商品名, 価格, 評価, レビュー数)

product(item1,3000,4.8,20).
product(item2,1800,4.2,200).
product(item3,5000,4.9,5).
product(item4,2500,4.5,80).

% おすすめ商品（評価4.5以上）
recommend(Name) :-
    product(Name, _, Rating, _),
    Rating >= 4.5.

program :-
    write('おすすめ商品'), nl,
    recommend(Name),
    write(Name), nl,
    fail.
program.