Select Code to Download

use Math::Pari qw(gcd);
my $x = gcd(232,300);
print "gcd is $x\n";

use strict;
my @nineset = (9, 8, 7, 6, 5, 4, 3, 2, 1);
...
print "$d $e $f\n";
print "$g $h $i\n";
print "Common divisor is: $maxgcf\n";

8 3 2
9 2 8
6 0 8
Common divisor is: 32

1 7 6
3 9 6
2 2 0
Common divisor is: 44