09/07/04 03:59:15
>>342
% Prolog
t342(X,Y,Z) :-
findsum(U1,(for(1,N1,100),U1 is random // 100),X),
findsum(U2,(for(1,N2,1000),U2 is random // 100),Y),
Z is Y / X.
findsum(_選択項,_項,_合計値) :-
findall(_選択項,_項,_値ならび),
sum(_値ならび,_合計値),!.
sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.