perl - Activeperl は Rand 関数に Windows の「stdlib」を使用しますか

Question

Activeperl が rand および srand 関数に Windows の「stdlib」を使用しているかどうかを知っている人はいますか? 私はperl 5.16を使用しています。ご回答ありがとうございます。

Answer 1

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";

Deal_cards_for_FreeCell#Perl