09/07/03 07:32:08
>>331
% Prolog
t331(_行列1,_行列2) :-
各行を整列する(_行列1,_行列3),
各列を整列する(_行列3,_行列2),
member(L,_行列2),
concat_atom(L,' ',S),
write_formatted('%t\n',[S]),
fail;
true.
各行を整列する([],[]) :- !.
各行を整列する([_行|R1],[_整列された行|R2]) :-
sort(_行,_整列された行),
各行を整列する(R1,R2).
各列を整列する(_行列1,_行列2) :-
行列の転置(_行列2,_行列3),
各行を整列する(_行列3,_行列4),
行列の転置(_行列4,_行列2).