while $b != 0 {
        ($b, $a) = ($a % $b, $b);
    }

##</code><code>##

sub gcd ($a, $b) {
    return $a if !$b;
    gcd($b, $a % $b);
}

say gcd(24, 42);

##</code><code>##

sub gcd ($a, $b) {
    ($a, $b ... { $^x % $^y || () })[*-1]
}