いろんな言語で宿題第四編

いろんな言語で宿題第四編 at TECH

22:デフォルトの名無しさん
10/03/10 11:29:22
>>19
% Prolog

都道府県別のユーザ数一覧 :-
　　　write('都道府県,人数\n'),
　　　都道府県別のユーザ数を取得(_都道府県,_人数),
　　　write_formatted('%t,%t\n',[_都道府県,_人数]),
　　　fail.
都道府県別のユーザ数一覧.

都道府県別のユーザ数を取得(_都道府県,_人数) :-
　　　都道府県(_,_都道府県),
　　　count((ユーザ情報(_,_,住所),sub_atom(_住所,0,_,_,_都道府県)),_人数).

次ページ

続きを表示

1を表示