В
Size: a a a
В
TB
TB
TB
В
В
SU
TB
TB
SU
$w = rand * $val
и $w = rand() * $val
дают совершенно разные распределения — это какой-то очевидный прикол языка, про который я забыл, или у меня в коде фигня какая-то?SU
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand*$val}print($w/1000)'
0.492861023749036
SU
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand()*$val}print($w/1000)'
4.98028202329572
SU
IB
SU
IB
IB
$ perl -e 'srand(1); my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand()*$val}print($w/1000 . "\n")'
4.98704643222313
$ perl -e 'srand(1); my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand *$val}print($w/1000 . "\n")'
0.498704643222314
IB
perldoc perlfunc
даст ответ на вопросSU
SU
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=$val*rand}print($w/1000)'
5.08836406525965