diff options
| -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; |