- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
290 ：デフォルトの名無しさん[sage]：2015/05/20(水) 01:32:05.69 ID:EkW2PCYt - perl 5.16.1
Windows7
#-------------
# srand を100回ほど動かしながら乱数を5個づつ生成していく。
foreach my $srand (0..99){
srand $srand;
print "srand:$srand\n";
my @print = map{ int(rand(100)) } 0..4;
foreach my $p (@print){
print $p . ", ";
}
print "\n\n";
}
#---------------
srand直後の最初のrandが 0 ばっかになるんだが…
乱数やないやん。
みんなどう対処してるの？
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
292 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:26:24.34 ID:EkW2PCYt - いやアルゴリズムの名前は忘れたけど、
win98の頃は二回乱数を捨てなければならなかった。
unix系では大丈夫。
そうゆう質問よ
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
293 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:30:55.88 ID:EkW2PCYt - ええと、補足すると、
srandは明示的に同じ乱数にするのには向いてなくて、
Perlのバージョンにもよるけど、やや古いperlはOS依存になってて、
新しいのでもバージョンによって挙動が違ってて、
それの対処をどうしてるの？
んで、俺が書いた環境だと欠陥じゃない？って感じの質問。
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
294 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:34:22.51 ID:EkW2PCYt - srandが変わっても、乱数が同じになるって意味ね
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
296 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:56:32.39 ID:EkW2PCYt - 全部0だぞ
|
- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
297 ：デフォルトの名無しさん[sage]：2015/05/20(水) 05:57:01.56 ID:EkW2PCYt - なくないと言うか、0とかになって乱数を捨てるのは有名な話しだと思ってた
|