Max common divisor

两个正整数最大公约数的欧几里德算法：

sub max_common_divisor {
    my($m, $n) = @_;
    my $residue = 0;

    while (1) {
        $residue = $m % $n;
         return $n unless ($residue);
        $m = $n;
        $n = $residue;
    }
}