>>231
% Prolog

'ユーザーにサイズN（最大で100000）を入力させ、そのサイズのArrayを1〜100までのランダムな数字で埋めた後、N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする' :-
　　　'ユーザーにサイズN（最大で100000）を入力させ'(N),
　　　そのサイズのArray(L,N),
　　　'1〜100までのランダムな数字で埋めた後'(L),
　　　'N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする'(L).

'ユーザーにサイズN（最大で100000）を入力させ'(N) :-
　　　催促付き整数入力('サイズN（最大で100000）を入力してください :',N),!.

'そのサイズのArrayを1〜100までのランダムな数字で埋めた後'([]) :- !.
'そのサイズのArrayを1〜100までのランダムな数字で埋めた後'([M|R]) :-
　　　M is (random mod 100) + 1,
　　　'そのサイズのArrayを1〜100までのランダムな数字で埋めた後'(R).

'N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする'(L) :-
　　　for(1,N,100),
　　　count(member(N,L),Count),
　　　write_formatted('%tの度数=%t\n',[Count]),
　　　N=100.