Select Code to Download

$vec = pack 'V', int( 2**32* rand() );;

...

print @ints;;
1 2 8 9 10 11 12 13 15 16 19 24 26 27 29

C:\test>perl -MMath::Random::MT=rand -minteger -MBenchmark=cmpthese
$vec = pack 'V*', map int( 2**32* rand() ), 1 ..10;;
...
a  22306/s   -- -79%
b 108646/s 387%   --