% 1. 商品データ定義: 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).
% 2. おすすめ商品のルール定義(ご指定の仕様通りに設定)
% 条件: 評価(Rating)が 4.5以上 => Rating >= 4.5
% レビュー数(Reviews)が 50件以上 => Reviews >= 50
recommended_product(Name) :-
product(Name, _Price, Rating, Reviews),
Rating >= 4.5,
Reviews >= 50.
% 3. 実行用メイン処理(ideone.com で結果を出力するためのクエリ)
:- initialization(main).
main :-
% 条件を満たすおすすめ商品をすべて見つけて出力する
( recommended_product(Name),
format('おすすめ商品: ~w~n', [Name
]), fail
; true
),
halt.
JSAxLiDllYblk4Hjg4fjg7zjgr/lrprnvqk6IHByb2R1Y3Qo5ZWG5ZOB5ZCNLCDkvqHmoLwsIOipleS+oSwg44Os44OT44Ol44O85pWwKQpwcm9kdWN0KGl0ZW0xLCAzMDAwLCA0LjgsIDIwKS4KcHJvZHVjdChpdGVtMiwgMTgwMCwgNC4yLCAyMDApLgpwcm9kdWN0KGl0ZW0zLCA1MDAwLCA0LjksIDUpLgpwcm9kdWN0KGl0ZW00LCAyNTAwLCA0LjUsIDgwKS4KCiUgMi4g44GK44GZ44GZ44KB5ZWG5ZOB44Gu44Or44O844Or5a6a576p77yI44GU5oyH5a6a44Gu5LuV5qeY6YCa44KK44Gr6Kit5a6a77yJCiUg5p2h5Lu2OiDoqZXkvqEoUmF0aW5nKeOBjCA0LjXku6XkuIog77yd77yeIFJhdGluZyA+PSA0LjUKJSAgICAg44Os44OT44Ol44O85pWwKFJldmlld3Mp44GMIDUw5Lu25Lul5LiKIO+8ne+8niBSZXZpZXdzID49IDUwCnJlY29tbWVuZGVkX3Byb2R1Y3QoTmFtZSkgOi0KICAgIHByb2R1Y3QoTmFtZSwgX1ByaWNlLCBSYXRpbmcsIFJldmlld3MpLAogICAgUmF0aW5nID49IDQuNSwKICAgIFJldmlld3MgPj0gNTAuCgolIDMuIOWun+ihjOeUqOODoeOCpOODs+WHpueQhu+8iGlkZW9uZS5jb20g44Gn57WQ5p6c44KS5Ye65Yqb44GZ44KL44Gf44KB44Gu44Kv44Ko44Oq77yJCjotIGluaXRpYWxpemF0aW9uKG1haW4pLgoKbWFpbiA6LQogICAgJSDmnaHku7bjgpLmuoDjgZ/jgZnjgYrjgZnjgZnjgoHllYblk4HjgpLjgZnjgbnjgabopovjgaTjgZHjgablh7rlipvjgZnjgosKICAgICggICByZWNvbW1lbmRlZF9wcm9kdWN0KE5hbWUpLAogICAgICAgIGZvcm1hdCgn44GK44GZ44GZ44KB5ZWG5ZOBOiB+d35uJywgW05hbWVdKSwKICAgICAgICBmYWlsCiAgICA7ICAgdHJ1ZQogICAgKSwKICAgIGhhbHQu