いろんな言語で宿題スレ

いろんな言語で宿題ス ..

595:デフォルトの名無しさん
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,!.

次ページ