#!/usr/bin/perl -w


print "GCD: " . GCD( 45, 5 ) . " RecGCD: " . RecGCD( 45, 5 ) . "\n";

#Assumes $A is the largest number
sub GCD 
{
	$A = shift;
	$B = shift;
	$R = 1;
	
	while ( $R != 0 )
	{
		$R = $A % $B;
		
		if ( $R == 0 )
		{
			return $B;
		}
		
		$A = $B;
		$B = $R;
	}
}


#Assumes $A is the largest number
sub RecGCD
{
	$A = shift;
	$B = shift;
	$R = 0;
	
	$R = $A % $B;
	
	if ( $R == 0 )
	{
		return $B;
	}
	
	RecGCD( $B, $R );	
}