09/07/31 23:42:55
>>594
% Prolog (2/2)
% システム運用の最初に/var/nyutaishitsu/listing.100000.proを生成して置きます
入退室管理ディレクトリ('/var/nyutsishitsu/').
入退室保存ファイル(F) :-
入退室管理ディレクトリ(Dir),
concat_atom(['ls -N ',Dir,'listing.*.pro'],S),
shs(S,L),
max(L,File),
sub_atom(File,_,6,4,A),
atom_to_term(A,N,_),
N2 is N + 1,
concat_atom(['/var/nyutaishitsu/listing.',N2,'.pro'],F),!.