Help for this page

Select Code to Download


  1. or download this
    use Math::Pari qw/ PARI /;
sub PARIdo {
...
    $s =~ s/[{}\s]+//g;
    PARI($s);
}
  2. or download this
    PARIdo(q{
  mygcd(a, b) = {
...
  }
});
print PARI("mygcd(12,8)");
  3. or download this
    my $v1 = PARI(12);
my $v2 = PARI(8);
print PARI(qq{mygcd($v1,$v2)});