いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

347:343
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.

次ページ

続きを表示

1を表示