10/01/16 11:37:09
>>257
% Prolog 問題3 これもこれまで何度も定義された。
行列の転置([[]|_],[]) :- !.
行列の転置(_副行列,[_第一要素ならび|R]) :-
第一要素と残り要素の収集(_副行列,_第一要素ならび,_残り要素ならび),
行列の転置(_残り要素ならび,R),!.
第一要素と残り要素の収集([],[],[]) :- !.
第一要素と残り要素の収集([[A|R1]|R2],[A|R3],[R1|R4]) :-
第一要素と残り要素の収集(R2,R3,R4).