10/02/01 15:54:09
>>547
% Prolog
program :-
user_parameters([FileIn,FileOut]),
open(FileIn,read,Input,[type(binary)]),
open(FileOut,write,Output),
get_byte(Input,C),
free1(0,Input,Output,C),
close(Output),
close(Input).
free1(_,_,_,-1) :- !.
free1(16,Input,Output,C) :-
write(Output,'\n'),
free1(0,Input,Output,C),!.
free1(M,Input,Output,C) :-
free1(M,Input,Output,C) :-
Ｎ進数(16,C,A),
write(Output,A),
get_byte(Input,C2),
M2 is M + 1,
free1(M2,Input,Output,C2).
% Ｎ進数/3の定義は URLﾘﾝｸ(nojiriko.asia) 参照