09/07/31 23:39:15
>>594
% Prolog (1/2)
入退室 :-
入退室管理ディレクトリ(Dir),
concat_atom(['ls -N ',Dir,'listing.*.pro'],S),
shs(S,L),
max(L,File),
reconsult(File).
入室(_氏名) :-
A is time,
localtime(A,B,_月,_日,_,_,_時,_分,_秒),
assertz(入退室(入室,_氏名,_年,_月,_日,_時,_分,_秒)),
入退室保存ファイル(_入退室保存ファイル),
tell(_入退室保存ファイル),
listing(入退室),
told,!.
退室(_氏名) :-
A is time,
localtime(A,B,_月,_日,_,_,_時,_分,_秒),
assertz(入退室(退室,_氏名,_年,_月,_日,_時,_分,_秒)),
入退室保存ファイル(_入退室保存ファイル),
tell(_入退室保存ファイル),
listing(入退室),
told,!.