Size: a a a

2020 January 05

В

Вертолетчик in Modern::Perl
Ivan Bessarabov
А еще бывают отрицательные числа
ну это уже учитывалось выше: [+-]
источник

TB

Trokhym Babych in Modern::Perl
Вертолетчик
Ну или /^[+-]?[1-9][0-9]*$/ в зависимости от контекста
но оно ж просто 0 не словит вроде как
источник

TB

Trokhym Babych in Modern::Perl
не понимаю к чему костыль с тем что первая цифра не ноль
источник

TB

Trokhym Babych in Modern::Perl
типа 01 это не число?
источник

В

Вертолетчик in Modern::Perl
Trokhym Babych
но оно ж просто 0 не словит вроде как
согласен, чистый ноль учитывать тоже надо
источник

В

Вертолетчик in Modern::Perl
Trokhym Babych
типа 01 это не число?
типа того
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Trokhym Babych
типа 01 это не число?
Да, потому что фронт это поймает и сделает неправильный parseInt() 8)
источник

TB

Trokhym Babych in Modern::Perl
Вертолетчик
согласен, чистый ноль учитывать тоже надо
(?:0| ... )
источник

TB

Trokhym Babych in Modern::Perl
и всю дорогу волнует начало для шестнадцатеричных - 0x
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Товарищи дорогие, напомните плиз, тот факт, что $w = rand * $val и $w = rand() * $val дают совершенно разные распределения — это какой-то очевидный прикол языка, про который я забыл, или у меня в коде фигня какая-то?
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand*$val}print($w/1000)'

0.492861023749036
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand()*$val}print($w/1000)'

4.98028202329572
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Чувствую, что это я тормоз, но обосновать пока не могу
источник

IB

Ivan Bessarabov in Modern::Perl
Для начала — вот это работает неправильно`print($w/1000)."\n"`
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Ivan Bessarabov
Для начала — вот это работает неправильно`print($w/1000)."\n"`
Да, уже поправил 8) Но это фигня, на результат не влияет
источник

IB

Ivan Bessarabov in Modern::Perl
Посколько это rand() удобно вызвать в обоих примерах srand с одим и тем же значением, чтобы rand() в обоих примерах возвращал одно и то же
источник

IB

Ivan Bessarabov in Modern::Perl
$ 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

Ivan Bessarabov in Modern::Perl
Может быть фот этот фрагмент perldoc perlfunc даст ответ на вопрос
https://perldoc.perl.org/perlfunc.html

> Any function in the list below may be used either with or without parentheses around its arguments. (The syntax descriptions omit the parentheses.) If you use parentheses, the simple but occasionally surprising rule is this: It looks like a function, therefore it is a function, and precedence doesn't matter. Otherwise it's a list operator or unary operator, and precedence does matter. Whitespace between the function and left parenthesis doesn't count, so sometimes you need to be careful:
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Твою ж мать...
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=$val*rand}print($w/1000)'
5.08836406525965
источник