product(item1,3000,4.8,20).
product(item2,1800,4.2,200).
product(item3,5000,4.9,5).
product(item4,2500,4.5,80).
 
score(Name, Score) :-
    product(Name, Price, Rating, Reviews),
    Score is Rating * Reviews / Price.
 
main :-
    forall(product(Name, Price, Rating, Reviews),
        (
            score(Name, Score),
            format('~w price=~w rating=~w reviews=~w score=~2f~n',
                   [Name, Price, Rating, Reviews, Score])
        )
    ),
    halt.
 
:- initialization(main).

cHJvZHVjdChpdGVtMSwzMDAwLDQuOCwyMCkuCnByb2R1Y3QoaXRlbTIsMTgwMCw0LjIsMjAwKS4KcHJvZHVjdChpdGVtMyw1MDAwLDQuOSw1KS4KcHJvZHVjdChpdGVtNCwyNTAwLDQuNSw4MCkuCgpzY29yZShOYW1lLCBTY29yZSkgOi0KICAgIHByb2R1Y3QoTmFtZSwgUHJpY2UsIFJhdGluZywgUmV2aWV3cyksCiAgICBTY29yZSBpcyBSYXRpbmcgKiBSZXZpZXdzIC8gUHJpY2UuCgptYWluIDotCiAgICBmb3JhbGwocHJvZHVjdChOYW1lLCBQcmljZSwgUmF0aW5nLCBSZXZpZXdzKSwKICAgICAgICAoCiAgICAgICAgICAgIHNjb3JlKE5hbWUsIFNjb3JlKSwKICAgICAgICAgICAgZm9ybWF0KCd+dyBwcmljZT1+dyByYXRpbmc9fncgcmV2aWV3cz1+dyBzY29yZT1+MmZ+bicsCiAgICAgICAgICAgICAgICAgICBbTmFtZSwgUHJpY2UsIFJhdGluZywgUmV2aWV3cywgU2NvcmVdKQogICAgICAgICkKICAgICksCiAgICBoYWx0LgoKOi0gaW5pdGlhbGl6YXRpb24obWFpbiku