diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-10-15 02:45:31 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-15 02:45:31 +0100 |
| commit | fbd351f17d2386b990425b937ecbb8d6bd93ef9a (patch) | |
| tree | 9763d037b9546bb75327acbf849d42707964dc92 | |
| parent | e2ff8037a89fd45bb8d4bc89b7346a7b28f063eb (diff) | |
| parent | 2fee04f002414d7dc539ead13c5665dec8fcee5c (diff) | |
| download | perlweeklychallenge-club-fbd351f17d2386b990425b937ecbb8d6bd93ef9a.tar.gz perlweeklychallenge-club-fbd351f17d2386b990425b937ecbb8d6bd93ef9a.tar.bz2 perlweeklychallenge-club-fbd351f17d2386b990425b937ecbb8d6bd93ef9a.zip | |
Merge pull request #2529 from andemark/branch-for-challenge-082
added gcd to task 1
| -rw-r--r-- | challenge-082/mark-anderson/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-082/mark-anderson/raku/ch-1.p6 b/challenge-082/mark-anderson/raku/ch-1.p6 index 78954e3b05..aeceb5c32b 100644 --- a/challenge-082/mark-anderson/raku/ch-1.p6 +++ b/challenge-082/mark-anderson/raku/ch-1.p6 @@ -1,3 +1,3 @@ unit sub MAIN(UInt $m, UInt $n); -say (1..($m, $n).min).grep(($m, $n).all %% *).join(", ").List; +say (1..($m gcd $n)).grep(($m, $n).all %% *).join(", ").List; |