09/07/04 05:07:58
>>342 間違ってたので直します
% Prolog
t342(X,Y,Z) :-
findsum(U1,(for(1,N1,100),U1 is random mod 100),X),
findsum(U2,(for(1,N2,1000),U2 is random mod 100),Y),
Z is Y / X.
findsum(_選択項,_項,_合計値) :-
findall(_選択項,_項,_値ならび),
sum(_値ならび,_合計値),!.
sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.