Select Code to Download

for (1..10) {
   $s = ($s*0x5deece66d + 0xb) % 2**48;
   say(($s>>17)%1000);
}

          s/iter    BigInt BigIntGMP       GMP      Perl
BigInt      25.0        --      -42%      -94%     -100%
BigIntGMP   14.4       73%        --      -90%      -99%
GMP         1.47     1605%      885%        --      -93%
Perl       0.110    22701%    13070%     1238%        --

use strict;
use warnings;
...
                      tryclass('Math::BigInt', \@nums) },
   Perl      => sub { tryperl(\@nums) },
});