10/01/15 11:19:21
>>260
% Prolog
並び替えを行って人口の大きい順に人口と県名を表示する(_ファイル) :-
see(_ファイル),
findall([_人口,_県名],(repeat,get_line(X),(X=end_of_file,!,fail;
split(X,[','],[_県名,_人口])),L),
seen,
降順に整列する(L,L1),
人口と県名を表示する(L1).
人口と県名を表示する([]) :- !.
人口と県名を表示する([[_人口,_県名]|R]) :-
write_formatted('%t %t\n',[_人口,_県名]),
人口と県名を表示する(R).