% 商品データ
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以上かつレビュー50件以上、または評価4.8以上）
recommended(Item) :-
    product(Item, _, Rating, Reviews),
    (Rating >= 4.5, Reviews >= 50 ; Rating >= 4.8).
 
% おすすめ商品を一覧表示するためのプログラム
show_recommended :-
    write('--- おすすめ商品リスト ---'), nl,
    recommended(Item),
    product(Item, Price, Rating, Reviews),
    format('商品名: ~w (価格: ~w円, 評価: ~w, レビュー数: ~w件)~n', [Item, Price, Rating, Reviews]),
    fail. % 全ての商品をチェックするために失敗させてバックトラックさせる
show_recommended :-
    nl, write('--- 以上がおすすめ商品です ---'), nl.

JSDllYblk4Hjg4fjg7zjgr8KcHJvZHVjdChpdGVtMSwgMzAwMCwgNC44LCAyMCkuCnByb2R1Y3QoaXRlbTIsIDE4MDAsIDQuMiwgMjAwKS4KcHJvZHVjdChpdGVtMywgNTAwMCwgNC45LCA1KS4KcHJvZHVjdChpdGVtNCwgMjUwMCwgNC41LCA4MCkuCgolIOOBiuOBmeOBmeOCgeOBruWumue+qe+8iOipleS+oTQuNeS7peS4iuOBi+OBpOODrOODk+ODpeODvDUw5Lu25Lul5LiK44CB44G+44Gf44Gv6KmV5L6hNC445Lul5LiK77yJCnJlY29tbWVuZGVkKEl0ZW0pIDotCiAgICBwcm9kdWN0KEl0ZW0sIF8sIFJhdGluZywgUmV2aWV3cyksCiAgICAoUmF0aW5nID49IDQuNSwgUmV2aWV3cyA+PSA1MCA7IFJhdGluZyA+PSA0LjgpLgoKJSDjgYrjgZnjgZnjgoHllYblk4HjgpLkuIDopqfooajnpLrjgZnjgovjgZ/jgoHjga7jg5fjg63jgrDjg6njg6AKc2hvd19yZWNvbW1lbmRlZCA6LQogICAgd3JpdGUoJy0tLSDjgYrjgZnjgZnjgoHllYblk4Hjg6rjgrnjg4ggLS0tJyksIG5sLAogICAgcmVjb21tZW5kZWQoSXRlbSksCiAgICBwcm9kdWN0KEl0ZW0sIFByaWNlLCBSYXRpbmcsIFJldmlld3MpLAogICAgZm9ybWF0KCfllYblk4HlkI06IH53ICjkvqHmoLw6IH535YaGLCDoqZXkvqE6IH53LCDjg6zjg5Pjg6Xjg7zmlbA6IH535Lu2KX5uJywgW0l0ZW0sIFByaWNlLCBSYXRpbmcsIFJldmlld3NdKSwKICAgIGZhaWwuICUg5YWo44Gm44Gu5ZWG5ZOB44KS44OB44Kn44OD44Kv44GZ44KL44Gf44KB44Gr5aSx5pWX44GV44Gb44Gm44OQ44OD44Kv44OI44Op44OD44Kv44GV44Gb44KLCnNob3dfcmVjb21tZW5kZWQgOi0KICAgIG5sLCB3cml0ZSgnLS0tIOS7peS4iuOBjOOBiuOBmeOBmeOCgeWVhuWTgeOBp+OBmSAtLS0nKSwgbmwu