euclid-gcd.p6

gistfile1.txt

#!/usr/bin/env perl6

multi sub euclid ($a is copy, $b is copy) {
    while ($b != 0)  {
        ($a, $b) = ($b, $a % $b);
    }
	return $a;
}

multi sub euclid ($a, $b where $a < $b) {
	euclid($b, $a)
}

multi sub MAIN(Int:D $a, Int:D $b) {
	say "gcd($a,$b) = ", euclid($a, $b)
}