10/07/05 00:18:05
>>221
% Prolog
地方で集約する(_地方,_人口) :-
findsetof(_地方,(
'PopTbl'(_pref_name,_population),
地方(_地方,_pref_name)),
L1),
append(_,[_地方|_],L1),
findsum(_population,(
'PopTbl'(_pref_name,_population),
地方(_地方,_pref_name)),
_人口).
地方(四国,徳島).
地方(四国,香川).
地方(四国,愛媛).
地方(四国,高知).
地方(九州,福岡).
地方(九州,佐賀).
地方(九州,長崎).