Select Code to Download

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

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

say gcd(24, 42);

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