fork download
copy 
  1. Prolog
  2. % =================================================================
  3. % データ定義（ファクト）
  4. % product(Name, Price, Rating, ReviewCount)
  5. % =================================================================
  6. product(item1, 3000, 4.8, 20).
  7. product(item2, 1800, 4.2, 200).
  8. product(item3, 5000, 4.9, 5).
  9. product(item4, 2500, 4.5, 80).
  10.  
  11. % =================================================================
  12. % AIが独自に定義した「おすすめ（recommended）」のルール
  13. % 定義：評価(Rating)が4.5以上、かつレビュー数(ReviewCount)が15件以上
  14. % =================================================================
  15. recommended_product(Name) :-
  16.     product(Name, _, Rating, ReviewCount),
  17.     Rating >= 4.5,
  18.     ReviewCount >= 15.
  19.  
  20. % =================================================================
  21. % メイン処理（ideoneの実行用エントリーポイント）
  22. % =================================================================
  23. main :-
  24.     % すべてのおすすめ商品をバックトラックで列挙して表示
  25.     forall(recommended_product(Name),
  26.            (format('Recommended item: ~w~n', [Name]))),
  27.     halt.
Success #stdin #stdout #stderr 0.03s 7056KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: /home/BAwO3q/prog:5:67: Syntax error: Operator expected
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/7uEBGO
language:
Prolog (swi 7.6.4)
created:
6 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!