Prolog 写経記 その 74 beep/1

Tech Prolog

(ほぼ) 毎日淡々と Prolog を写経します．元ネタはこちら．

Prologユーティリティライブラリ

Prologユーティリティライブラリ

昨日で「7 章 出力ユーティリティ」は終わってました．
そんなわけで (どんなわけで？)，今日からは「8 章 画面管理」です．
今日は beep/1 を写経します．

解説

beep(N) は端末のベルを N 回鳴らす．

ベル？
．．．
こんなのまで写経するのか？
．．．
まぁいいか，するか．

モード

beep(+).

ふむ．

定義

では，こいつの定義を写経しませう．

beep(N) :-
	integer(N),
	N >= 0,
	ring(N), !.

ring(0) :- !.
ring(N) :-
	put(7),
	More is N - 1, !,
	ring(More).

7 って ASCII の 7 が beep ってこと？
知らなかったよ．勉強になるなぁ？

例

では使用例を写経しませう．

error_message(Text) :-
	beep(3),
	write(Text).

ほほー．
これを使った例は掲載されていないので適当に．

3 ?- error_message('Ebi! Yuri!').
Ebi! Yuri!

Yes

えー．
Windows 上の SWI-Prolog では .wav が再生されるせいか，3 回鳴りません．(^^;
N を 100 にしても 1000 にしても

ひょろん〜♪

と鳴って終わりです．
まぁいいや．

出演予定 TV 番組

Misc TV スケジュール

この近辺 (どこ？) で話題のモデルが出演するテレビ番組を分かるだけ掲載します．
新規分は赤字で (レギュラー除く)．直近分は太字で．

能世あんな＆えれな
10/18 (火) 21:54〜22:00 CX 「旅美人」
鈴木えみ
10/18 (火) 23:00〜00:00 MX 「ラブ・リルカ」

予告もレポートもすっかりサボってますが，一応逃さず見ている「旅美人」．
で，最近はまたこの姉妹なんですが．．．
単独で出演する気はないんですかねぇ？
どうしても姉妹にこだわるなら香里奈も一緒にお願いしたいなぁ．

CanCam 11 月号 エビちゃんベストセレクション 24

Misc EbiYuri

CanCam2005年11月号の蛯原友里ちゃん

CanCam から，お気に入りの蛯原友里ちゃんを紹介しようというこのコーナー．
今日もレッセ・パッセとのタイアップで「人気独占♥秋のスイートスタイル 6」から P453 の友里ちゃん．
こちらは「ピンクファー付きにニットでめちゃ♥モテスタイル」．
まさにめちゃ♥モテ！！
そんなわけで (どんなわけで？)，やっぱり CanCam 買うしか！！