From 63866c0fbaa1ba1d20acd53686c166f7c4c943ea Mon Sep 17 00:00:00 2001 From: Kang-min Liu Date: Wed, 14 Oct 2020 19:41:44 +0900 Subject: a more optimized version. --- challenge-082/gugod/raku/ch-1.raku | 6 +++--- 1 file 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 }); } -- cgit