いろんな言語で宿題スレ

595 名前：デフォルトの名無しさん mailto:sage [2009/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,!.

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef