examples/perl/gcd-recursive.plPerl
#!/usr/bin/perl

use warnings;

sub gcd
{
	my ($x, $y)=@_;
	return $y unless $x;
	return ($x>=$y)? gcd($x-$y, $y): gcd($x, $y-$x);
}

my $gcd=shift;

while(@ARGV)
{
	$gcd=gcd($gcd, shift);
}

print "$gcd\n";

examples/perl/gcd-iterative.plPerl
#!/usr/bin/perl

use warnings;

sub gcd
{
	my ($x, $y)=@_;
	while($x)
	{
		($x, $y)=($y, $x) if $x>$y;
		$y-=$x;
	}
	return $y;
}

my $gcd=shift;

while(@ARGV)
{
	$gcd=gcd($gcd, shift);
}

print "$gcd\n";