10/02/14 09:26:14
>>711
% Prolog
販売履歴(飲み物).
販売履歴(お菓子).
販売履歴(お弁当).
販売履歴(お菓子).
販売履歴(お菓子).
販売履歴(飲み物).
販売履歴(お弁当).
販売履歴(お弁当).
販売集計処理 :-
一意な商品名ならびを得る(L),
商品テーブルに追加(L).
一意な商品名ならびを得る(L) :- setof(_商品名,販売履歴(_商品名),L).
商品テーブルに追加([]) :- !.
商品テーブルに追加([_商品名|R]) :-
count(販売履歴(_商品名),_販売本数),
assertz(商品(_商品名,_販売本数)),
商品テーブルに追加(R).