Merge pull request #2522 from gugod/gugod-082-try-2

[gugod] an imprement of 082.1

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 });
 }