09/07/04 04:36:04
>>344 課題2
% Prolog
inpro([],[],0) :- !.
inpro([A|R1],[B|R2],X) :-
inpro(R1,R2,Y),
X is A * B + Y.
09/07/04 04:36:04
>>344 課題2
% Prolog
inpro([],[],0) :- !.
inpro([A|R1],[B|R2],X) :-
inpro(R1,R2,Y),
X is A * B + Y.
09/07/04 04:36:04
>>344 課題2
% Prolog
inpro([],[],0) :- !.
inpro([A|R1],[B|R2],X) :-
inpro(R1,R2,Y),
X is A * B + Y.