>>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),!.