Activeperl是否使用Windows的stdlib作爲rand函數

Question

有誰知道Activeperl是否使用Windows的stdlib作爲rand和srand函數？我正在使用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