sisyphus / math-gmpq Goto Github PK

use 5.010;
use strict;
use warnings;

use Math::GMPq qw(:mpq);

sub ui_rat {
    my ($num, $den) = @_;
    my $q = Rmpq_init();
    Rmpq_set_ui($q, $num, $den);
    $q;
}

sub si_rat {
    my ($num, $den) = @_;
    my $q = Rmpq_init();
    Rmpq_set_si($q, $num, $den);
    $q;
}

my $max_ui = ~0;
my $min_si = -(~0 >> 1) - 1;

say "MAX_UI: $max_ui";    # MAX_UI: 18446744073709551615
say "MIN_SI: $min_si";    # MIN_SI: -9223372036854775808

say '-' x 28;

say "UI_RAT: ", ui_rat($max_ui, 1);    # UI_RAT: 18446744073709551615
say "SI_RAT: ", si_rat($min_si, 1);    # SI_RAT: 0

say '-' x 28;

say "SI_RAT with -2^31-1: ", si_rat(-2**31 - 1, 1);    # SI_RAT with -2^31-1: 2147483647
say "SI_RAT with -2^31:  ",  si_rat(-2**31,     1);    # SI_RAT with -2^31:  -2147483648

use strict;
use warnings;

use Math::GMPz;
use Math::GMPq;

my $r = Math::GMPq->new('0');
my $z = Math::GMPz->new('0');
my $q = Math::GMPq->new('42');

Math::GMPq::Rmpq_z_div($r, $z, $q);

print $r;                        # should print '0'