diff options
| -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 ); +} |