0
ActivePerl이 rand 및 srand 함수에 대해 Windows 'stdlib'를 사용하는지 알 수 있습니까? 나는 perl 5.16을 사용하고있다. 귀하의 회신에 미리 감사드립니다.Activeperl은 rand 함수에 Windows 'stdlib'을 사용합니까
ActivePerl이 rand 및 srand 함수에 대해 Windows 'stdlib'를 사용하는지 알 수 있습니까? 나는 perl 5.16을 사용하고있다. 귀하의 회신에 미리 감사드립니다.Activeperl은 rand 함수에 Windows 'stdlib'을 사용합니까
my $s = 4071;
my $rnd = sub {return (($s = ($s * 214013 + 2531011) % 2 ** 31) >> 16)};
foreach(0..51){print $rnd->()," "}
print "\n";
srand(4071);
foreach(0..51){print rand()*2**15," "}
print "\n";