fork download
copy 
  1. % 商品データ
  2. % product(商品名, 価格, 評価, レビュー数)
  3.  
  4. product(item1,3000,4.8,20).
  5. product(item2,1800,4.2,200).
  6. product(item3,5000,4.9,5).
  7. product(item4,2500,4.5,80).
  8.  
  9. % おすすめ商品（評価4.5以上）
  10. recommend(Name) :-
  11.     product(Name, _, Rating, _),
  12.     Rating >= 4.5.
  13.  
  14. % 実行
  15. main :-
  16.     write('おすすめ商品'), nl,
  17.     recommend(Name),
  18.     write(Name), nl,
  19.     fail.
  20. main.
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
GNU Prolog 1.4.5 (64 bits)
Compiled Feb  5 2017, 10:30:08 with gcc
By Daniel Diaz
Copyright (C) 1999-2016 Daniel Diaz
| ?-
https://ideone.com/yHuxxP
language:
Prolog (gprolog 1.4.5)
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!