diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-11-30 06:25:16 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-11-30 06:25:16 -0700 |
| commit | ed3569442b4db652b84ef54036fa04b6883678ff (patch) | |
| tree | 3a3caf58111339355c6bc82dee1d15eb65fa4ff2 | |
| parent | af94441ab7e0527098caf635f795a86d21cac877 (diff) | |
| download | perlweeklychallenge-club-ed3569442b4db652b84ef54036fa04b6883678ff.tar.gz perlweeklychallenge-club-ed3569442b4db652b84ef54036fa04b6883678ff.tar.bz2 perlweeklychallenge-club-ed3569442b4db652b84ef54036fa04b6883678ff.zip | |
Challenge 89 Solutions (Raku)
| -rw-r--r-- | challenge-089/mark-anderson/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-089/mark-anderson/raku/ch-1.p6 b/challenge-089/mark-anderson/raku/ch-1.p6 index 53ae256ce3..01a4b13b9c 100644 --- a/challenge-089/mark-anderson/raku/ch-1.p6 +++ b/challenge-089/mark-anderson/raku/ch-1.p6 @@ -10,6 +10,6 @@ multi MAIN { ok gcd-sum(4) == 7, "Example 2"; } -sub gcd-sum(Int $n) { +sub gcd-sum(UInt $n) { sum (1..$n).combinations(2).map(-> ($a, $b) { $a gcd $b }); } |