Select Code to Download

ppm install http://www.sisyphusion.tk/ppm/Math-GMPz.ppd
ppm install http://www.sisyphusion.tk/ppm/Math-Int128.ppd

use warnings;
use Math::Int128 qw(int128);
...

die "Error 4:\n$ri\n$mpz_ret\n" if $ri != int128("$mpz_ret") 
 || $ri != int128('457611325781455127825205517363509632');

C:\_64\pscrpt>perl bench.pl
Name "main::i_div" used only once: possible typo at bench.pl line 17.
...
add_M::G2 883002/s      500%      142%        --

C:\_64\pscrpt>

            Rate    gmpz mul_128
gmpz    900000/s      --     -3%
mul_128 927835/s      3%      --