fork download
  1. % 1. 商品データ定義: product(商品名, 価格, 評価, レビュー数)
  2. product(item1, 3000, 4.8, 20).
  3. product(item2, 1800, 4.2, 200).
  4. product(item3, 5000, 4.9, 5).
  5. product(item4, 2500, 4.5, 80).
  6.  
  7. % 2. おすすめ商品のルール定義(ご指定の仕様通りに設定)
  8. % 条件: 評価(Rating)4.5以上 => Rating >= 4.5
  9. % レビュー数(Reviews)50件以上 => Reviews >= 50
  10. recommended_product(Name) :-
  11. product(Name, _Price, Rating, Reviews),
  12. Rating >= 4.5,
  13. Reviews >= 50.
  14.  
  15. % 3. 実行用メイン処理(ideone.com で結果を出力するためのクエリ)
  16. :- initialization(main).
  17.  
  18. main :-
  19. % 条件を満たすおすすめ商品をすべて見つけて出力する
  20. ( recommended_product(Name),
  21. format('おすすめ商品: ~w~n', [Name]),
  22. fail
  23. ; true
  24. ),
  25. halt.
Success #stdin #stdout 0.01s 5316KB
stdin
Standard input is empty
stdout
おすすめ商品: item4