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),!.