10/02/09 17:34:26
>>666
% Prolog 旅費を算出するまでもない。
旅費(日本,食費,10000).
旅費(日本,宿泊費,30000).
旅費(日本,交通費,50000).
旅費(日本,合計,_旅費合計) :-
旅費(日本,食費,_食費),
旅費(日本,宿泊費,_宿泊費),
旅費(日本,交通費,_交通費),
_旅費合計 is _食費 + _宿泊費 + _交通費.
旅費(アメリカ,食費,10000).
旅費(アメリカ,宿泊費,30000).
旅費(アメリカ,交通費,300000).
旅費(アメリカ,合計,_旅費合計) :-
旅費(アメリカ,食費,_食費),
旅費(アメリカ,宿泊費,_宿泊費),
旅費(アメリカ,交通費,_交通費),
_旅費合計 is _食費 + _宿泊費 + _交通費.