diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-11-30 00:56:54 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-11-30 00:56:54 -0700 |
| commit | 8a26a9c2bfd0192ad58b161aa5208d26965f3377 (patch) | |
| tree | 3159314ff3cf8270ab2a7d154bbf762dcdee0d68 | |
| parent | bc609bb8f6a4328f1c7a2703954ac4d604d33783 (diff) | |
| download | perlweeklychallenge-club-8a26a9c2bfd0192ad58b161aa5208d26965f3377.tar.gz perlweeklychallenge-club-8a26a9c2bfd0192ad58b161aa5208d26965f3377.tar.bz2 perlweeklychallenge-club-8a26a9c2bfd0192ad58b161aa5208d26965f3377.zip | |
Challenge 89 Solutions (Raku)
| -rw-r--r-- | challenge-089/mark-anderson/raku/ch-1.p6 | 2 | ||||
| -rw-r--r-- | challenge-089/mark-anderson/raku/ch-2.p6 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-089/mark-anderson/raku/ch-1.p6 b/challenge-089/mark-anderson/raku/ch-1.p6 index 1e47a398ed..53ae256ce3 100644 --- a/challenge-089/mark-anderson/raku/ch-1.p6 +++ b/challenge-089/mark-anderson/raku/ch-1.p6 @@ -1,4 +1,4 @@ -multi MAIN(Int $n) { +multi MAIN(UInt $n where * > 0) { #= greater than 0 say gcd-sum($n); } diff --git a/challenge-089/mark-anderson/raku/ch-2.p6 b/challenge-089/mark-anderson/raku/ch-2.p6 index 6a0ca41228..9ea2f19c7a 100644 --- a/challenge-089/mark-anderson/raku/ch-2.p6 +++ b/challenge-089/mark-anderson/raku/ch-2.p6 @@ -7,7 +7,7 @@ use Scalar::History; unit sub MAIN(UInt $n where * mod 2); #= a positive odd integer -.say for odd-magic-square($n); +say odd-magic-square($n); sub odd-magic-square($n) { subset Valid of UInt where 0 <= * < $n; |