10/01/15 18:20:58
>>271
% Prolog
'100個の0～10までの数字を発生させる'(L) :-
length(L,100),
'0～10までの数字を発生させる'(L).
'0～10までの数字を発生させる'([]) :- !.
'0～10までの数字を発生させる'([N|R]) :-
N is random mod 11,
'0～10までの数字を発生させる'(R).
'0じゃない数字の個数を数えて表示させる'(L) :-
count((member(A,L),number(A),\+(A=0)),_0じゃない数字の個数),
write_formatted('0じゃない数字は%t個です\n',[_0じゃない数字の個数]).