diff options
| -rw-r--r-- | challenge-053/mark-anderson/raku/ch-2.p6 | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/challenge-053/mark-anderson/raku/ch-2.p6 b/challenge-053/mark-anderson/raku/ch-2.p6 index b1a33ef693..94cc2f68d9 100644 --- a/challenge-053/mark-anderson/raku/ch-2.p6 +++ b/challenge-053/mark-anderson/raku/ch-2.p6 @@ -1,13 +1,11 @@ #!/usr/bin/env raku sub MAIN($length where 1 <= $length <= 5) { - my %next_letter = ( - a => [<e i>], - e => [<i>], - i => [<a e o u>], - o => [<a u>], - u => [<o e>] - ); + my %next_letter = a => <e i>, + e => <i>, + i => <a e o u>, + o => <a u>, + u => <o e>; for <a e i o u> -> $first_letter { my @queue = Empty; |