#!/usr/bin/perl
sub mcd {
my ($a,$b) = @_;
if ($a==$b) {
$a;
} else {
return mcd ($a-$b,$b) if $a>$b;
return mcd ($a,$b-$a) if $b>$a;
}
}
print mcd($ARGV[0],$ARGV[1]),"\n";
#!/usr/bin/perl
sub mcd {
my ($a,$b) = @_;
if ($a==$b) {
$a;
} else {
return mcd ($a-$b,$b) if $a>$b;
return mcd ($a,$b-$a) if $b>$a;
}
}
print mcd($ARGV[0],$ARGV[1]),"\n";