diff options
| -rw-r--r-- | challenge-082/gugod/raku/ch-1.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-082/gugod/raku/ch-1.raku b/challenge-082/gugod/raku/ch-1.raku index f2d918b47b..90e9b140c2 100644 --- a/challenge-082/gugod/raku/ch-1.raku +++ b/challenge-082/gugod/raku/ch-1.raku @@ -1,10 +1,10 @@ #!/usr/bin/env raku sub MAIN (Int $M, Int $N) { - my ($a, $b) = ($M, $N).sort; - say common-factors($a, $b); + say common-factors($M, $N).join(' '); } sub common-factors (Int $a, Int $b) { - (1, 2..$a/2, $a).flat.grep(-> $n { 0 == $a % $n == $b % $n }); + my $x = $a gcd $b; + return (1..$x).grep(-> $n { $x %% $n }); } |