Size: a a a
AP
pg_enable_utf8 => 1 ?VG
$w = rand * $val и $w = rand() * $val дают совершенно разные распределения — это какой-то очевидный прикол языка, про который я забыл, или у меня в коде фигня какая-то?MD
TZ
VG
$ perl -MEncode -E '$a="пÑ\u0080имеÑ\u0080"; say decode("UTF-8", $a)'
п�0080име�0080VT
VG
MD
MD
AP
AP
SU
В
VK
$ perl -e 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand*$val}print($w/1000)'
0.492861023749036$ perl -Mstrict -wE 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand*$val}say($w/1000)'
Can't use string ("10") as a symbol ref while "strict refs" in use at -e line 1.
$ perl -MO=Deparse,-p -Mstrict -wE 'my $val=10;my $w=0;for(my $i=0;$i<1000;$i++){$w+=rand*$val}say($w/1000)'
BEGIN { $^W = 1; }
use strict;
use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
(my $val = 10);
(my $w = 0);
for ((my $i = 0); ($i < 1000); (++$i)) {
($w += rand(*$val));
}
say(($w / 1000));
-e syntax OKSU
IB
IB
VT
# Test timelocal() {
- my $year_in = $year < 70 ? $year + 1900 : $year;
+ my $year_in = $year + 1900;
SU
# Test timelocal() {
- my $year_in = $year < 70 ? $year + 1900 : $year;
+ my $year_in = $year + 1900;