rand

Perlで簡単に乱数を使うときはrand関数を使う。ただこれ、乱数の種がtimeだったりして、短い間に複数回使うと同じ値が返ってきた。のでsrandで工夫する。てか、前はsrandを呼ばないとrandが呼べなかったし。これはいつの事だっただろうか。

最近気になる事があって、randを調べてみた。

for ( 0..9 ) {
    print time . ' : ' . rand();
    print "?n";
}

瞬時に処理が終わるので、timeが種なら全て同じ値が返るはず。が、きちんとバラバラになっていた。いつの間に…。

あ、オチが無いなー。でもせっかく書いたからポストしとこう。