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

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

41:デフォルトの名無しさん
10/03/17 10:42:58
>>32
% Prolog (その一)

キーワード数の上位10位までを表示 :-
　　　findall([M,N],カウンタカウンタ(M,N),L1),
　　　sort(L1,L2),
　　　reverse(L2,L3),
　　　上位10位まで(L3,L),
　　　キーワード数の上位10位までを表示(L).

キーワード数の上位10位までを表示([]) :- !.
キーワード数の上位10位までを表示([M|R]) :-
　　　キーワードカウンタ(_キーワード,M),
　　　キーワード表示(_キーワード),
　　　fail.
キーワード数の上位10位までを表示(R).

キーワード表示(_キーワード) :-
　　　キーワード(ID,_キーワード),
　　　write_formatted('%t,%t\n',[ID,_キーワード]).

上位10位まで([],_,[]) :- !.
上位10位まで(_,Count,[]) :- Count >= 10,!.
上位10位まで([[M,N]|R1],Count1,[M|R2]) :-
　　　Count2 is Count1 + N,
　　　上位10位まで(R1,Count2,R2).

次ページ

続きを表示

1を表示