いろんな言語で宿題スレ

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

343:デフォルトの名無しさん
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.

次ページ

続きを表示

1を表示