- 585 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 05:00:03 ]
- >>584
% Prolog
t584 :-
user_parameters([File1,File2]),
get_lines(File2,L1),
get_lines(File2,L2),
append(L,[A|_],L1),
append(L,[B|_],L2),
\+(A=B),
length(L,Len),
_行番号 is Len + 1,
write_formatted('行番号=%t %t=%t %t=%t\n',[_行番号,File1,A,File2,B]).
