diff options
| author | Kang-min Liu <gugod@gugod.org> | 2020-12-02 08:37:34 +0900 |
|---|---|---|
| committer | Kang-min Liu <gugod@gugod.org> | 2020-12-02 08:37:34 +0900 |
| commit | 23333dc2ae7acca2680b0739b75c4c8b3f4b861a (patch) | |
| tree | dfce32c297ec9d950af609d23de79efa234bc861 | |
| parent | 70adebf80e38d1e8e718f2e76cd74dee1bb001b1 (diff) | |
| download | perlweeklychallenge-club-23333dc2ae7acca2680b0739b75c4c8b3f4b861a.tar.gz perlweeklychallenge-club-23333dc2ae7acca2680b0739b75c4c8b3f4b861a.tar.bz2 perlweeklychallenge-club-23333dc2ae7acca2680b0739b75c4c8b3f4b861a.zip | |
a solution for gcd-sum.
| -rw-r--r-- | challenge-089/gugod/raku/ch-1.raku | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-089/gugod/raku/ch-1.raku b/challenge-089/gugod/raku/ch-1.raku new file mode 100644 index 0000000000..639f4c50d2 --- /dev/null +++ b/challenge-089/gugod/raku/ch-1.raku @@ -0,0 +1,8 @@ + +sub gcdsum (Int $N){ + (1..$N).combinations(2).map(-> ($a, $b) { $a gcd $b }).sum(); +} + +for @*ARGS -> $n { + say gcdsum( $n.Int ); +} |