Perlで簡単に乱数を使うときはrand関数を使う。ただこれ、乱数の種がtimeだったりして、短い間に複数回使うと同じ値が返ってきた。のでsrandで工夫する。てか、前はsrandを呼ばないとrandが呼べなかったし。これはいつの事だっただろうか。
最近気になる事があって、randを調べてみた。
for ( 0..9 ) {
print time . ' : ' . rand();
print "?n";
}
瞬時に処理が終わるので、timeが種なら全て同じ値が返るはず。が、きちんとバラバラになっていた。いつの間に…。
あ、オチが無いなー。でもせっかく書いたからポストしとこう。