diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-14 19:36:04 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-14 19:36:04 -0600 |
| commit | 2fee04f002414d7dc539ead13c5665dec8fcee5c (patch) | |
| tree | 0b9e7b2cb60f055d280d84e6c6b17f98d3efaca4 /challenge-082 | |
| parent | 6350fddd28bda40bcc9dfc73b8acb48e37279041 (diff) | |
| download | perlweeklychallenge-club-2fee04f002414d7dc539ead13c5665dec8fcee5c.tar.gz perlweeklychallenge-club-2fee04f002414d7dc539ead13c5665dec8fcee5c.tar.bz2 perlweeklychallenge-club-2fee04f002414d7dc539ead13c5665dec8fcee5c.zip | |
added gcd to task 1
Diffstat (limited to 'challenge-082')
| -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; |