いろんな言語で宿題スレ

いろんな言語で宿題ス ..

549:デフォルトの名無しさん
09/07/23 17:10:15
>>548
% Prolog

a([[6,3,4],[5,1,2]]).
b([[1,2,3],[4,5,6]]).

t548 :-
a(A),b(B),行列の差(A,B,C),
write_formatted('%t\n',[C]).

行列の差([],[],[]) :- ! .
行列の差([A|R1],[B|R2],[C|R3]) :- 行列の差の一(A,B,C),行列の差(R1,R2,R3),!.

行列の差の一([],[],[]) :- !.
行列の差の一([A|R1],[B|R2],[C|R3]) :- C is A - B,行列の差の一(R1,R2,R3),!.

次ページ