- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
291 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:18:09.37 ID:+vwzLual - 実際に動かしたコードと質問に使ってるコードが違うと思うが
そこは置いといて。
srand(値) は、明示的に同じ乱数を使いたい時に使うもの。
srand() は、明示的に違う乱数を使いたい時に使うもの。
$ perl -le 'srand() ; print int rand 42'
27
$ perl -le 'srand() ; print int rand 42'
21
$ perl -le 'srand() ; print int rand 42'
11
$ perl -le 'srand(42) ; print int rand 42'
31
$ perl -le 'srand(42) ; print int rand 42'
31
そのコードは、
「複数回実行しても同じ結果になる様に組んでますよ」
ってコード
$ diff <( perl CODE.pl) <( perl CODE.pl)
して確認してみりゃいい
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
295 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:45:49.32 ID:+vwzLual - 質問の主旨が変ってるぞ？
「0」になったのが問題じゃないのか？
そのコードだと、0に複数回なる可能性が無くはないが、
Windowsだろうと、凄く少ないと判断せざるを得なかった。
>>292,294
同じ結果にならないコードが、同じ結果を吐くなら
問題だけど、同じにするコードを書いてんだから、
$ diff <( perl CODE.pl) <( perl CODE.pl)
これ100回回して同じじゃなければ問題
バグ報告しろ。
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
299 ：デフォルトの名無しさん[sage]：2015/05/20(水) 06:02:55.13 ID:+vwzLual - >>296
全部0なら、バグ報告しなよ。
windowsだろうと有り得ない挙動だから。
|