« 2004年01月26日 | メイン | 2004年01月28日 »
2004年01月27日
meshiプログラム完成
某K氏と一緒に飯を食いに行くときは、行き先に悩むのです。ということで、行き先を決めるプログラムを作成しました。
#!/usr/bin/perl
open(IN,"meshi.txt");
@meshi = <IN>;
close(IN);
srand(time());
$a = int(rand(@meshi)) * 7 + 3;
for ($i=0; $i<$a; $i++) { $n = int(rand(@meshi)); }
print "Content-type: text/html\n\n";
print "今日の食事場所決定！<br>\n";
print "Today is $meshi[$n]";
exit;
meshi.txt には、行くであろう行き先を1行に1つずつ書いておきます。
Perlの乱数は結構偏りがあったような気がします。また、元の式が不変であれば、いくら演算しても無駄のような気もしますが、気分的に乱数を発生できた気分になれます。まぁ。行き先が決まればどうでもよいのですｗ
さて、行き先リストをちゃんと作るかな。（←これが難しい！）
23:06 | コメント (0) | トラックバック | University
おいおい勧誘かよ
さっき、飯食ってきたけど、昨日（26日）の食事内容を書きます。
朝も昼も食ってない。食べたのは夜だけ。
夜は、某K氏と民芸に行ってきました。なんか、隣の席に、同年次同学類の方が2人座ってたんだよね。しきりに、何らかの勧誘を受けてるようでしたが。今日の体育には、ちゃんと出席していたので、死んではいない模様。ただ、中身は変わってるかもしれませんけど。まぁ。某K氏と検討した結果、久しぶりに会った親戚と共に食事をしてるという結論に達しました。
民芸 （夜）
天ざるうどん（大盛）, その他（しか払わなかった）